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eTITL LP2ot 


200 0 


DASHER LP2 TP2 FIRMWARE: 


THIS FIRMWARE IG DESIGNED IN MICRO“NOVA LANGUAGE FOR 
THE USE OF DASKER PRINTER. THE PROGRAM ASSUMES THAT 
IT WILL RESIDE IN 1! 1/2 K OF ROM AND WILL HAVE 2k OF 
RAM STARTING AT LOCATION 0 AVAILABLE FOR ITS USE, 


PROGRAMMING AIDS: 


FOLLUWING INFORMATION IS IMPORTANT FOR ANY ONE TO 
UNDERSTAND THE FLOW OF THE FIRMWARE ANO TO DEBUG it. 


IN'S AND OUT’S 


IN ORDER TO SIMPLIFY THE HAROWARE DASHER DOES NOT 
SUPPORT THE I/O FUNCTIONS. ALL THE IMPUTS AND 
OUTPUTS ARE DONE USING LOAD AND STORE INSTRUCTIONS 
WITH ADDRESSES OVER 37770, 


IN FUNCTIONS 


THERE ARE EIGHT IN FUNCTIONS (INO THRU IN7) AVAIL~ 
ABLE TO INPUT INFORMATION FROM THE DASHER HARDWARE. 
THEIR ADDRESSES ARE 37770 THRU 37777. THUS LOADING 
OF AN ACCUMULATOR FROM LOCATION 37770 WILL BE REF~ 
FERED TO AS INO ANO THE ACCUMULATOR WILL GET LOADED 
WITH 16 BITS OF INFORMATION FROM THE DASHER HARDWARE. 


OUT FUNCTIONS 


ween ewennnee 


THERE ARE EIGHT OUT FUNCTIONS (OUTO THRU QUT7) AVAIL~ 
ABLE TO OUTPUT INFORMATION TO THE DASHER HAROWARE, 
THESE FUNCTIONS ARE ADDRESSED BY ADDRESSES HIGHER 
THAN 40000 ~ ADDRESS BITS 2,3, AND 4 ARE USED TO 
SELECT ONE OF THE EIGHT OUT FUNCTIONS AND THE INFOR~ 
MATION ON BITS 5 THRU 15 IS TRANSFERED TO THE DEVICE 
THUS STORING OF ANY ACCUMULATOR AT THE ADDRESS OF 


40177 WILL PERFORM AN QUT 0 AND SEND 177 TO THE OASHER, 


LIST OF IN FUNCTIONS 


USED TO READ DATA FROM CHAR GEN, 
BDATA 6-15 

BIT 0 HOME STATUS EQUAL TO ZERO WHEN BEHIND 

HOME 

BIT 10 SELF TEST INT. EQUAL TO ZERO FOR SELF TEST 

B1T 11 VERT INTERRUPT EQUAL TO ZERO FOR VERT MOTION 

BIT 12 KEYBOARD INT EQUAL TO ZERO KEY8O0ARD DATA 
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Ine 


IN3 


Ina 


INS 


IN6 
IN7 
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BIT 13 TICK INTERRUPT . 
BIT 14 PRINT INTERRUPT 


BIT 15 START CHAR INT 


BIT 7 ERROR 
BITS 8-15 


BIT 0 PAPER FAULT 
B17 1 ESC DISABLE 
BITS 8 FORM FEED 


15 COUNT 
BIT 0 VIEW ENABLE 
BIT i ON LINE 
BIT 2 DATA AVAILABLE 
BIT 3 TBE 
BIT 4 CARRIER DETECT 
BIT S CLEAR TO SEND 
BIT 6 1/2 OUPLEX 
BIT 7 NOT USED 
BIT 8 LINE FEED 
BIT 9 FORM FEED 
BIT 10 DATA SET READY 
BIT 11 NOT USED 
BIT 12 NOT USED 
BIT 13° NOT USED 


BIT 14 Busy 
BIT 15 SERIAL 


RESET KEYBOARD INT. 


~ 


CORPORATION, 


EQUAL TU ZERO CLOCK TIMEOUT 
EQUAL TO ZERO PRINT POS, 


EQUAL TO ZERO FOR START OF CHAR 


EQUAL TO ZERO FOR UART ERROR 
DATA FROM UART 


EQUAL TO ZERO FOR OUT OF FORMS 
EQUAL TO ZERO TO DISABLE 

EGUAL TO ONE FOR COUNT 

OF LINES IN FORM 


EQUAL TO ONE VIEW ON 

EQUAL TO ONE FOR ON LINE 

EQUAL TO ONE FOR DATA AVAILABLE 
EQUAL TO ZERO BUSY 

ZERO FOR CARRIER DETECT 

EGUAL TO ONE FOR CLEAR 

EQUAL TO ONE FOR 1/2 DUPLEX 

AND LOCAL COPY 


EQUAL TO ZERO FOR LINE FEED 
EQUAL TO ZERO FOR FORM FEED 
EQUAL TO ZERO FOR READY 


EQUAL TO ZERO SOFTWARE BUSY 
EQUAL TO ZERO FOR SERIAL 


9-15 KEYBOARD DATA 


START TIME TASK 


BITO FORM FEED INIT 

BIT1 NOT USED 

BIT2 COMPRESSED 
PRINT JUMPER 

B8IT3 NOT USED 

BITa ALT JUMPER 

BITS NOT USED 

BIT6 NOT USED 

BIT7 NOT USED 

BIT8 6/8 LINES PER 
INCH 

BITS NOT USED 

BIT10 NOT USED 

BITLL COMPRESSED 
PRINTING MODE 

BIT1e2 NOT USED 

BIT13 ALT SELECT 

BIT14 NOT USEO 

BITiS AUTO SKIP 


LIST OF OUT FUNCTIONS 


RESET POWER UP INIT 


QNE TO INIT. THE FORM FEED 
ONE IF THE JUMPER IS IN 


ONE IF THE JUMPER IS IN 


6=ZERO 
8=0NE 


ONE TO SELECT COMPRESSED 


ONE TO SELECT ALT MODE 


ONE TO ENABLE AUTO SKIP 


~_ 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 


COPYRIGHT OGC, 


0003 LP2o1 
OL 
02 
03 
04 
os 
06 
07 
08 
09 
10 
11 
te 
13 
14 
1S 
16 
17 
18 
19 
20 
ai 
22 
a3 
a4 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
ay 
42 
43 
44 
45 
46 
aT 
48 
49 


GUT1 


OUT2 


OUTS 


QuT4a 


OUTS 


OUT6 


OUT? 
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TRANSFER DATA TO HOST 
DATA 9915 


BIT 9 ERROR LIGHT 
BIT10 RUN LED 


EQUAL TO A ONE TO LIGHT LED 
EQUAL TO A ONE TO LIGHT LED 
ON CONTROL BOARD WHEN MOTOR 
HAS BEEN TURNED ON 

BIT 11 DATA TERMINAL ONE WHEN THE DEVICE IS READY 
8IT12 ON LINE ONE WHEN THE DEVICE IS ON LINE 
BIT13 READY LIGHT ON ONE TO TURN ON THE LIGHT 


BIT14 REQUEST TO SEND EQUAL TO ONE WHEN NOT BUSY 
BIT15 BREAK ONE TO SEND THE BREAK 


BIT12 SELECT ALT ONE TO SELECT ALT 
BIT13 PRINT MASK ZERO TO MASK QUT 
BITi4 PRINT SELECT 0 REG 

1 COMPRESSED 
BITis BELL 


FIRE THE PRINT WIRES 
68ITS 7-45 


MOTION CONTROL 

BIT 10 

& PAPER FEED COMMANDS 

BIT 11 

HORIZONTAL MOTION COMMANDS: 

BIT 12 INC/SLOW SPEED 

SIT 13 -DIRECTION OF 
MOTION 

BIT 14 STOP BIT 

BIT 15 110/180 SPEED 


0 TO MOVE TO THE RIGHT AND 
1 TO MOVE TO THE LEFT 
0 TO STOP THE HORIZONTAL MOTION 


INTERRUPT RESET 


BIT10 SELF TEST ONE TO RESET SELF TEST 
BIT11 VER INT ONE TO RESET VERT INT 
BIT12 NOT USED . 
BIT13 TICK ONE TO RESET TICK INT 
BIT14 = PRINT ONE TO RESET PRINT INT 
BIT15 START CHAR ONE TO RESET START CHAR 
’ 

ADDRESS FOR CHAR GEN 

BITS 6-12 CHAR 

BITS 13-15 COUNT FOR POS 


FIFO 


THE FIRMWARE HAS A SOFTWARE FIFO TO BE USED AS THE 
BUFFER BY THE PRINTER. ALL OF THE RAM LOCATIONS OVER 
OCTAL 400 WILL BE USED AS THE SUFFER. LOCATIONS 400 
THRU 407 ARE USED BY THE KEYBOARD AND REST OF THE 
BUFFER IS USED BY THE PRINTER HOWEVER DOWN LINE 
LOADED CHARACTER SETS GO IN LOCATION 2000 To 

3770 THE BUFFERS ARE CHARACTER ORIENTED AND TwO 
CHARACTERS ARE SAVED IN EACH LOCATION WITH THE LEFT 
BYTE CONTAINING THE FIRST CHARACTER. 


0004 
OL 
02 
03 
04 
os 
06 
o7 
08 
09 
10 
11 
te 
13 
14 
15 
16 
17 
18 
19 
20 
ai 
22 
23 
24 
2s 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
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PICTURE OF THE FIFO (RING BUFFER) IS AS FOLLOWS: 


MASKS Nel sNUMBER OF BYTES THE FIFO CAN HOLD ~1 

Lis 0 :OFFSET FROM BASE IN BYTES OF THE LAST 
tCHARACTER STORED 

LO: N tAFTER INCREMENTING AND MASKING WITH 


MASK LO WILL HAVE THE OFFSET FROM LI 

sIN BYTES 

sTO THE LAST CHARACTER GOTTEN QUT 
BASE*2 BYTE POINTER TO THE STARTING OF THE 

sBUFFER WHERE BASE IS THE STARTING 

sADDRESS OF THE BUFFER ITSELF. 


SAVING AND RESTORING FROM THE FIFO 


CHARACTERS FROM THE KEYBOARD ARE RECEIVED ON AN 
INTERRUPT BASIS. THEY ARE SAVED IN THE KEYBOARD SUFFER 
AND ARE EITHER SENT UP TO THE HOST IF THE DEVICE IS ON 
LINE OR ARE PRINTED IF THE DEVICE IS OFF LINE. 
CHARACTERS FROM .THE HOST CPU ARE ONLY RECEIVED WHEN 
THE DEVICE IS ON LINE, IN WHICH CASE THEY ARE SAVED IN 
THE PRINTER FIFO, PRINTER STARTS PRINTING THE CHARACTERS 
AS SOON AS THEY ARE RECEIVED. WHEN A LINE TERMINATOR 
SUCH AS RETURN, LINE FEED OR FORM FEED IS RECEIVED FOUR 
BYTES FOLLOWING THE TERMINATOR ARE INITIALIZED TO 0 FOR 
THE PRINTER'S LOOK AHEAD FEATURES. FIRST BYTE GETS LOAD~ 
EO WITH THE NUMBER OF LEADING SPACES IN THE LINE FOLLOW- 
ING THE TERMINATOR, SECOND BYTE IS MADE NON-ZERO IF AN 
ESCAPE COMMAND IS PRESENT IN THE LINE AND THE THIRD BYTE 
IS LOADED WITH THE NUMBER OF CHARACTERS IN THE 
LINE. THE FOURTH BYTE HAS NUMBER OF PRINTABLE 
CHARACTERS IN THE LINE. 
eA BACKSPACE IS SUBSTITUTED BY A REJURN AND X~1 LEADING 
SPACES, WHERE X WAS THE TOTAL NUMBER OF CHARACTERS IN 
THE LINE BEFORE THE BACKSPACE WAS ISSUED. 


TABING 


BOTH VERTICAL AND HORIZONTAL TABS ARE SAVED AS ONE BIT 
PER CHARACTER POSITION FOR HORIZONTAL TABS AND LINE FEED 
POSITION FOR VERTICAL POSITION. SETTING OF TAB IS 
ACHIEVED BY SETTING THE RESPECTIVE BIT. 


SCANNING LOOP 


WHILE IDLING OR AFTER COMPLETING AN OPERATION THE 
PROGRAM RETURNS TO A LOOP STARTING AT-LABEL "SCAN", 

THIS LOOP LOOKS FOR THINGS TO DO, SUCH AS SETTING OF THE 
ON LINE FLAG, LOOKING FOR THE COMM. LINES’ STATUS, CHA= 
RACTERS RECEIVED FROM THE HOST, CHARACTERS TO BE PRINTED, 
ESCAPE COMMANDS, ETC. CHARACTERS RECEIVED FROM THE HOST 
ARE ONLY READ AND SAVED IF THE PRINTER IS ON LINE AND 
THE PRINT BUFFER IS NOT FULL. 

IF A KEY WAS HIT, THE PRINTER IS ON LINE AND THE UART IS 
FREE THEN THE ASCII CODE OF THE KEY IS SENT TO THE HOST. 
IF AT THAT TIME A LOCAL COPY WAS DESIRED THEN 
PREPARATION IS MADE TO PRINT THE CHARACTER. 

WHEN THE PRINTER BECOMES AVAILABLE THE NEXT CHARACTER TO 


= 
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BE PRINTED IS TAKEN FROM THE FIFO (KEY BUARD BUFFER IF 
IT IS OFF LINE AND PRINT BUFFER IF IT IS ONLINE). IF THE 
FIFO IS EMPTY THEN A STOP COMMAND TO THE HORIZONTAL STEP 
MOTOR IS ISSUED AND THE SCAN LOOP IS REPEATED. IF THERE 
IS A CHARACTER TO BE PRINTED THEN A COUNTER "PRCNT" IS 
SET TO THE NUMBER OF TIMES THE PRINT WIRES WILL BE FIRED 
(7 FOR -REGULAR AND 13 FOR ELONGATED). 

AFTER PRINTING OF THE FIRST CHARACTER BEGINS THE NEXT 
CHARACTER IS READ FROM THE FIFO AND CHECKEO FOR A ESCAPE 
COMMANDO, WHICH IF PRESENT IS EXECUTED. 


IF THE CHARACTER TO HE EXECUTED IS A LINE TERMINATOR 

THE PROGRAM FLOW JUMPS TO THE LABEL "NXTLN" AND BASED ON 
THE POSITION OF THE HEAD ANDO THE LENGTH OF THE NEXT LINE 
A DECISION REGARDING THE PRINT DIRECTION IS MADE ALONG 
WITH OECISIONS ABOUT THE OPTIONS WHICH CAN ONLY BE 
SELECTED ON A LINE BY LINE BASIS SUCH AS COMPRESSED 
PRINT MODE. 


USER'S INFORMATION 


DASHER IS AN INTELLIGENT PRINTER CAPABLE OF MAKING 
DECISIONS WHEN NEEDED, SUCH AS THE PRINT DIRECTION 
OF THE FOLLOWING LINE AFTER COMPLETING A LINE. OTHER 
FEATURES INCLUDE THE FOLLOWING COMMANDS, 


COMMAND STRING 


severe woserwve 


CNT. O DESELECT ALT MODE 
CNT. N SELECT ALT MODE 


ESCAPE I.E. A CODE OF 33 IS CONSIDERED THE STARTING OF A 

COMMAND STRING. 

ESC 1 SETS HORIZONTAL TAB AT THE PRINT HEAD POSITION. 

ESC 2 CLEARS HORIZONTAL TAB AT THE PRINT HEAD POSITION. 

Esc 5 SETS VERTICAL TAB AT CURRENT LINE POSITION. 

ESC 6 CLEARS VERTICAL TAB AT CURRENT LINE POSITION, 

ESC CC(LOWER CASE) MASTER RESET 

Esc Y 2 BYTES OF BYTE COUNT, 2 BYTES OF STARTING BYTE 
ADDRESS, DATA, AND 1 BYTE OF NEGATED CHECK SUM 
IS THE SEQUENCE TO BE FOLLOWED FOR DOWN LINE 
LOADING INFORMATION IN THE DASHER MEMORY. 

ESC S(LOWER CASE) DESELECT UNDER SCORE 

ESC AC(LOWER CASE) SELECT UNDER SCORE 

ESC EC(LOWER CASE) CLEARS PLOTTING MODE 

ESC DILOWER CASE) SETS PLOTTING MODE 

Esc CLEARS COMPRESSED PRINT MODE. 


ESC >: SETS COMPRESSED PRINT MODE. 

ESc = CLEARS ELONGATED PRINT MODE. 

ESC < SETS ELONGATED PRINT MODE. 

Esc N 2 BYTES OF ADDRESS, SELECTS DOWN LINE LOADED 


CHARACTER SET STARTING AT THE GIVEN ADDRESS. 
Esc Z 2@ BYTES OF ADDRESS, STARTS EXECUTING THE DOWN 
LINE LOADED PROGRAM AT THE DEFINED ADDRESS. 
ESE E 41,82,83,..eNULL, SETS HORIZONTAL TABS AT 
LOCATIONS #N, WHERE #4N IS THE HORIZONTAL 
POSITION OF THE PRINT HEAD. 
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ESC E NULL, CLEARS ALL OF THE HORIZONTAL TABS 

ESC F H1e8#2e43,e0eeeNULL, SETS VERTICAL TABS AT 
LOCATION #N, WHERE #N IS THE VERTICAL 
POSITION OF THE PRINT HEAD. 

ESC F NULL, CLEARS ALL OF THE VERTICAL TABS. 

Esc 0 CLEARS DOWN LINE LOADED CHARACTER SET. 

NOTE 
NOTE #1,82¢#3 ONLY AN QCTAL VALUE REQUIRED 
(012) LINE FEED KEY SETS FIRST TAB AT POS 
ITION 10 FOR FIRST TAB OCTAL (024) SETS 
SECOND TAB AT POSITION 20 ETC. 


RESTRICTIONS TO THE COMMAND STRING 


1. COMPRESSEO MODE WILL ONLY FUNCTION ON A LINE BY 
LINE BASIS. 

2. COMMANDS RELATED TO VERTICAL AND HORIZONTAL TABS CAN 
ONLY BE ISSUED AFTER A LINE TERMINATOR, 

3, ANY LINE WITH A COMMAND IN IT WILL BE PRINTED FROM 
LEFTY TO RIGHT, 

4. ANY LINE WITH ELONGATED PRINTS IN IT WILL BE PRINTED 
AT THE LOW PRINT RATE 

5. MEMORY AVAILABLE FOR DOWN LINE LOAD IS FROM 240 TO 
377 AND 2000 TO 3770 IN RAM, 

6. DOWN LINE LOADEO CHARACTER GENERATOR SHOULD 
BE STARTING ADDRESS (2000)8 SO AS NOT TO INTERFERE 
WITH BUFFER, 

7. PLOTTING MODE WILL ONLY FUNCTION ON A LINE BY 
LINE BASIS, THE LINE HAS TO BE TERMINATED TO 
BE PRINTED. 


POWER FAIL 

THE BUFFER WILL BE LOST ON A POWER FAIL ANO THE PRINTER 
WILL GET INITIALIZED 10 SWITCH CONFIGURATION ON 
RESUMPTION OF POWER. 


MACHINE CONFIGURATION 
MACHINE CONFIGURATION IS ONLY MONITORED ON AN INITIALIZE 
OR WHEN THE PRINTER IS OFF LINE. 


UNEXPECTED MOVEMENT OF THE PRINT HEAD 

IF THE PRINT HEAD IS MOVED BY HAND OR IT DOES NOT STOP Al 
THE POSITION IT WAS SUPPOSED TO BECAUSE OF OVERSHOOT THEN 
THE HEAD WILL REINITIALIZE USING THE HOME FLAG BEFORE 
PRINTING THE NEXT CHARACTER AT ITS CORRECT PLACE. 


1/2 DUPLEX MODE 


THIS MODE WILL CAUSE THE CHARACTERS BEING TRANSMITTED 
TQ THE HOST TO BE ECHOED ON THE PRINTER. 


PRINTER OPERATION 
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0007 LPzoL 10008 LPa0t~ 
o1 PRINTING AT LOW SPEED STARTS AS SOON AS A CHARACTER IS 01 000001 »NOCON 1 
02 RECEIVED, AFTER THE FIRST LINE IS PRINTED THE PRINTER 02 }VOLO FOR PROTOTYPE # 1 
03 SPEED IS INCREASED TO 180 CPS. 03 sCLEVER PRINTER PROGRAM 
o4 04 
05 05 000001 .TXTM 1 
ae Se SECE LEST, 06 :SYMBOL DEFINITIONS 
08 OPERATION OF SELF TEST MODE ae Pea ane nes ay 
09 2 
10 1. MASTER RESET PRINTER es a oaaes feue 
il 2. SELECT OFF LINE : 
12 3. SELECT MACHINE CONFIGURATION ON CONTROL 
13 PANEL 6 OR & LINES COMPRESSED GR REGULAR 
14 PRINT AUTO SKIP ON/OFF FORM LENGTH THEN 
15 PRESS TOP OF FORM INITIALIZE 
16 4. TURN ON SELF TEST SWITCH 
17 5. SELECT ON LINE 
18 PRINTER WILL THEN BE IN SELF TEST MODE 
19 6. MASTER RESET TO GET OUT OF SELF TEST 
20 Te IF AN OTHER MODE OF TEST IS DESIRED GO OFF 
at LINE SELECT MODE GO BACK ON LINE. 
22 ; ye AE 
23 
24 
25 
26 «ENO 


oy 
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10009 LP2v1 

01 

02 tINITIALIZATION PUTS CONSTANTS IN LOCS 1 THROUGH END©INITA. 
03 

04 000066 «LOC END=INITA+1 

05 TUNINITIALIZED VARIABLE SPACE IN PAGE 0 

06 000066 RETA =. 

07 00066 000001 BLK 1 sRETURN ADDRESS MAIN LEVEL SUBROUTINES 
08 000067 RETS =. 

09 00067 000001 BLK 1 

10 000070 VRTIN =. 

11 00070 000001 »BLK 1 NUMBER OF VERTICAL INTERRUPTS EXPECTED 
12 000071 VRTWT =. 

13 00071 000001 ; «BLK 1 tTHIS FLAG WILL BECOME 0 WHEN A VERTICAL 
14 sINTERRUPT IS EXPECTED 

15 000072 VRTFL =. 

16 00072 000001 «BLK 1 FLAG FOR VERTICAL STEP COMMAND 

17 000073 VSLEW =. 

18 00073 000001 «BLK 1 sNUMBER OF VERTICAL STEPS TO BE TAKEN 
19 BEFORE PRINTING THE NEXT LINE 

20 000074 VPOS =. 

21 00074 000001 -BLK 1 sPOSITION OF FORMS IN FULL STEPS 

22 000075 VRSTP 5. 

23 00075 000001 +BLK 1 sCOUNT OF THE VERTICAL STEPS NEEDED FOR 
24 7A LINE FEED 

25 000076 DLLA =. 

26 00076 000001 «BLK 1 - tBYTE AQDRESS FOR DOWN-LINE=LOAD 

27 000077 OLLB =. 

28 00077 000001 «BLK 1 sBYTE COUNT, NEGATIVE 

29 000100 DLLC =. 

30 00100 000001 BLK 1 7CHECK SUM 

31 000101 HPOS S. 

32 00101 000001 «BLK 1 sPOSITION OF CARRIAGE 

33 000102 HSLEW =. . 

34 00102 000001 «BLK 1 ?OIRECTION AND NUMBER OF STEPS 

35 770 BE MOVED BEFORE PRINTING THE 

36 z sNEXT CHARACTER 

37 000103 TEMP1 Se 

38 00103 000001 BLK 1 

39 000104 TEMP2 =. 

40 00104 000001 -8LK 1 s TEMPORARY STORAGE LOCATION 

41 000070 TEMPS =SVRTIN 

42 00010S SVEXx =. 

43 00105 000001 oBLK 1 

44 000105 TEMPY =SVEX 

45 000106 TEMPS =. . 

46 00106 000001 BLK 1 

a7 000107 CHCNT =. 

48 00107 000001 BLK 1 sCOUNT OF THE CHARACTERS IN THE 

aq sLINE 

50 000110 BACK =. 

S1 00110 000001 BLK 1 CHARACTER TO BE PICKED WHILE GOING 
52 BACKWARD (RIGHT TO LEFT) 

53 000111 PRNTIN s, 

54 00111 000001 eBLK * 1 sCOUNTER FOR THE NUMBER OF PRINT INTS. 
ss sRECEIVED 

56 000112 PRCHR =. 

57 00112 000001 «BLK 1 7CHARACTER TO BE PRINTED 

58 000113 PROIR =. 

59 00113 000001 «BLK 1 tPRINT DIRECTION 

60. 000114 PRCNT =. 
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0010 LPe2ot 

Of 00114 000001 BLK 1 
02 000115 PRADR =. 

03 00115 000001 e8LK 1 
o4 000116 PRSKP =. 

0S 00116 000001 BLK i 
06 

07 000117 PRTYP ze 

08 00117 000001 «BLK 1 
09 

10 000120 PFMD =. 

11 00120 000001 BLK i 
12 000121 CMPMD =. , 
13 00121 000001 . BLK 1 
14 000122 ALTMD =. 

1S 00122 000001 BLK 1 
16 000123 LDSPC me 

17 00123 000001 BLK i 
18 000124 PSFLG =. 

19 00124 000001 BLK 1 
20 

at 

22 

23 000125 LNCNT =. 

24 00t25 000001 «BLK 1 
25 000126 LNSIZ =. 

26 00126 000001 eBLK 1 
27 000127 HRTER =. 

28 00127 0G000! BLK 1 
29 

30 

31 000130 HSTFL Fe 

32 00130 000001 »BLK 1 
33 000131 STPFL =. 

34 00131 000001 BLK 1 
35 

36 

37 000132 DOLLF =e 

38 00132 000001 oBLK 1 
39 

40 000133 VRTER =. 

41 00133 000001 BLK i 
42 000134 OT3FL se 

43 60134 000001 «BLK 1 
aq 

4S 000135 OLLSL =. 

46 00135 000001 «BLK 1 
a7 

48 000136 DLADR =e 

49 00136 000001 BLK i 
50 

Si 000137 OLFLG =. 

Se 00137 000001 «BLK 1 
53 : 

$4 

55 000140 CMNDS =. 

56 00140 000001 SLK i 
S7 

58 000141 CMNDE =. 

59 00141 000001 «BLK 1 
60 
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:COUNTER FOR PRINT STEP 
sADDRESS OF THE COLUMN TO BE PRINTED 


sWILL BE =i WHEN FIRST PRINT INTERRUPT 
:IS TO BE SKIPPED WHILE PRINTING 


sFLAG FOR PRINT TYPE: BIT 0 WILL BE SET 
+FOR ELONGATED PRINT AND SIT 15 FOR COMP. 


sFLAG FOR PAPER OUT 
tFLAG FOR COMPRESSED MODE JUMPER 


FLAG FOR ALT MODE JUMPER 


sFLAG TO COLLECT THE HORIZONTAL POSITION 
30F THE LINE BEING SAVED IN THE PRINT 
SBUFFER WHEN THE PRINTER 1S ON*LINE 


:NUMBER OF LINES IN THE FORM 


sTHIS FLAG WILL BE NON 0 WHEN THE 
tHOR. MOTOR TAKES A STEP WITHOUT 
3A STEP COMMAND 


tFLAG FOR HORIZONTAL STEP COMMAND 
sTHIS FLAG WILL CONTAIN THE NUMBER 
:OF PRINT POSITIONS BEFORE THE MOTOR 
sHAS TO BE STOPPED 


7THIS LOCATION WILL BE NON O IF A 
*PROGRAM IS BEING DOWN LINE LOADED 


sCOUNTER FOR UNEXPECTED VERT. INT. 


:OUT3S COMMAND ISSUED AT ANY TIME WILL 
BE SAVED IN THIS LOCATION 


sFLAG TO INDICATE THAT CHARACTERS BEING 
7SAVED ARE DOWN LINE LOADED CHARACTERS 


tWELL CONTAIN THE ADDRESS WHERE THE DOWN 
tLINE LOADEO CHARACTER SET STARTS 


sCONTAINS THE ADDRESS OF THE LOCATION 
sWHERE THE DOWN LINE LOADED CHAR. SET 
MWILL START AFTER PRINTING THE CHARACTER 


sESCAPE COMMAND BEING SAVED WILL BE 
sSTORED HERE 


sESCAPE COMMAND BEING EXECUTED WILL BE 
?SAVEO HERE 


~— 


ooir L 


57 


58, 


59 
60 


00142 


ouL1ds 


oo1a4 


00145 


00146 


OO147 


00150 


00151 


00152 


00153 


00154 


00Lss 


00156 


00157 
00160 
00161 


00162 


00163 


00164 
00165 
00166 
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900142 
000001 


o00143 
000001 
000144 
000001 


000145 
oo0001 


000146 
000001 


°000147 
000001 


000150 
000001 


OO01S! 
a0000% 


000152 
000001 


000153 
000001 
000154 
000001 


000155 
000001 


000156 
000001 


000157 
000001 
000160 
000001 
000161 
000001 


000162 
000001 


000163 
000001 


000164 
000001 
000165 
000001 
000166 
000001 


000167 


PLTFL 


PSPFL 
PLTSL 


VUFLG 


SCRFL 
SCOR 

SWTIM 
ESFLG 
ESFLi 
ESCMD 
ECMND 
PSADR 
CHADR 


OSRFL 
OTAST 


ELNEN 
ARGFL 
AUTSK 


DELAY 
VUTIM 
HTBFL 


HRCNT 
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sFLAG TO INDICATE THAT CHARACTERS ARE 
?BEING SAVED FOR PLOTTING MOOE 


:SPECIAL FLAG FOR PLOT MODE 


?FLAG TO INDICATE THE PLOTTING MODE IS 
sSELECTED 


?NUMBER OF STEPS MOVED TO COMPLETE 
THE VIEW MOTION (0 WHEN. THERE HAS BEEN 
3NGQ MOVEMENT DUE TO VIEW) 


FLAG TO INDICATE THAT UNDER SCORING 
31S ENABLED OR DISABLED 


NON 0 WHEN THE CHARACTER BEING PRINTED 
tWILL BE UNDER SCORED 


3TIMER TO SEE IF IT IS TIME TO READ THE 
PANEL 


3FLAG INDICATING THAT AN ESCAPE COMMAND IS 
7BEING SAVED 


?FLAG INDICATING THAT AN ESCAPE COMMAND IS 
;BEING EXECUTED 


?BYTE ADDRESS IN THE FIFO WHERE THE FLAG 
3FOR THE ESCAPE COMMAND WILL BE SAVED 


BYTE ADDRESS OF THE BYTE WHERE THE LINE 
SIZE WILL BE SAVED 


sADDRESS OF THE BYTE COLLECTING THE 
sNUMBER OF CHARACTERS IN A LINE 


+TIME OUT FLAG FOR DATA SET 
+TIME FOR DATA SET DISCONNECT 


sFLAG TO REMEMBER IF THE CHARCTERS ARE 
#70 BE PRINTED IN ELONGATED MODE 


#FIRST BYTE OF TWO BYTE ARGUMENT WILL BE 
3SAVED HERE 


}WILL BE NON ZERO WHEN AUTO SKIP 
sFEATURE IS ENABLED 


DELAY FOR STOP COMMAND 


FLAG TO INDICATE THAT SLEW STEPS ARE 
sBEING TAKEN DUE TO A TAB 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 
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0012 LP20) 

01 00167 000001 
o2 

03 

oa 

os 000170 
06 00170 000001 
07 000171 
08 00171 000001 
09 

10 000172 
11 00472 000001 
12 000173 
13°00173 000001 
14 000174 
15 00174 000001 
16 

17 000175 
18 00175 000001 
19 000176 
20 00176 000001 
ai 000177 
22 00177 000001 
23 000200 
24 00200 000001 
es 000201 
26 00201 000001 
27 000202 
28 00202 000007 
29 

30 

31 o00e11 
32 00211 000011 
33 

34 


RETRY 
RTSVO 


RTSV3 
RTCRY 


RTCSV 


STFLG 
BUFST 
LTOFL 
TBFL 
BYFLG 
VTAB 


HTAB 


1979 


«BLK 


@e We Ws we Se De 


i sLOCATION WHERE THE NUMBER OF REAL TIME 
7CLOCK INTERRUPTS RECEIVED WHILE THE 
sHORIZONTAL MOTOR WAS STEPPING WILL BE 


:SAVED 

1 ;NUMBER OF RETRYS MADE TO STEP THE MaTOR 

1 $LOCATION TO SAVE ACO WHEN A REAL TIME 
:CLOCK INTERRUPT IS RECEIVED 

“4 ;SAVE AC3 ON A RTC INT. 

(i ?SAVE CARRY ON A RTC INT. 

1 ;HORIZONTAL COMMAND THAT FAILED WILL BE 
}SAVED HERE 

1 ;SELF TEST FLAG 

1 ‘BUSY BUFFER 

1 SLINE FLAG FOR ON LINE 

1 +STATUS OF TABS 

1 ;BUSY FLAG 

7 :BLOCK TO SAVE VERTICAL TAB POSITIONS, 


EACH BIT REPRESENTS ONE LINE FEED. 
7BIT 15 IS THE LOW ORDER BIT 


i sBLOCK TO SAVE HORIZONTAL TAB POSITIONS, 
TEACH BIT REPRESENTS ONE PRINT POSITION. 
7(BIT 15 IS THE LOW ORDER BIT). 


PRUPRIETARY INFORMATION OF DATA GENERAL CORPORATION, PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 
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$0013 LP201 $0014 LP201 
01 061401 «DIAC PSHA=061401 01 040000 «LOC 40000 
02 061601 eOTAC POPA=061601 02 7LOW END OF ROMS 
03 061001 eDIAC MTSP=061001 03 
04 060001 «DIAC = MTFP=060001 04 BEGIN HERE WHEN POWER COMES UP (HALT, INTERUPT, JMP 1) 
os 061201 eDIAC = MFSP=061201 05 40000 040401 BEGIN: STA Oreti RESET INTERRUPT FLOP THIS STA WILL 
06 060201 eDIAC MFFP=060201 06 ?DECODE INTO AN OUT ZERO 
07 071077 eDUSR RCTEN=71077 07 
08 065077 -OUSR RTCOS=65077 08 40001 030441 LUA 2,RTOP 
09 073301 eDUSR MUL=073301 09 40002 126000 ADC l,l 
10 073101 -DUSR DIV=073101 10 40003 034523 LDA - 3,CPO tINITIALIZE PAGE 0 
Mi 062401 «DUSR SAV=062401 i 11 40004 021377 INILP: LDA O,-1,2 
12 062601 »DUSR RET=062601 12 40005 041400 STA 0,0,3 
13 100010 eOXOP TRP=100010 13 40006 133000 ADD 1r2 
14 14 40007 137004 ADD 1,3,S2R 
15 15 40030 000774 JMP INILP 
16 ‘ TUNINITIALIZEO VARIABLE SPACE NOT IN PAGE 0 16 3GET -1 IN RAM TOP 40 WORDS (37703777) 
17 000400 «LOC 400 : 17 40011 030034 LDA 2,C10 zAC2 = 10 
18 00400 000010 BIFOA: .BLK 20/2 18 40012 046024 STA 1,MAUTIN sAUTOINC, INITIALLY HAS 3767 IN IT 
19 00410 000400 BIFOB: .B8LK 1000/2 19 40013 172004 ADC 3,2,SZR ;SKIP AFTER CLEARING THE. TOP TEN 
20 ‘;WORDS OF THE RAM 
21 40014 000776 gMP m2 
22 40015 020567 LDA 0,STAK 
23 40016 061001 MTSP 0 sINEIT. THE STACK 
24 40017 020031 LDA 0,C377  ;ACO = 377 
es OUT 0,603 sCLEAR INTERRUPTS 
26 40020 034046 LDA 3, ePOUT+6 
27 40021 117000 ADO 0,3 
28 40022 041400 STA 0,0,3 
29 IN 0,2 #CLEAR THE FIFO 
30 80023 022012 LOA 0,0.PIN+2 
31 40024 020052 LDA 0,C40 #GET STATUS BIT FOR RUN LITE 
32 OUT 0,203 3SET RUN LITE BEFORE STEPPING MOTOR 
33 40025 030042 LDA 3, POUT+2 
34 40026 117000 A0D 0,3 
35 40027 041400 STA 0,0,3 
36 PULSE 3 sOISABLE THE PRINT HEAD INTERRUPTS 
37 40030 042043 STA 0,0,POUT+3 
38 40031 034475 MRST2: LDA 3,CP0 sAC3 = ADDRESS ANO NUMBER OF PAGE 
39 30 LOCATIONS TO BE CLEARED 
40 40032 164520 NEGZL 3,1 
41 40033 175400 INC 3,3 
42 40034 051400 STA 250,73 sINITIALIZE MEM, LOCATIONS 
? 43 40035 125404 Inc 1,1,S2R 
44 40036 000775 JMP ond 
45 40037 006551 JSR @POFLNL ;INIT THE MACHINE STATUS 
46 40040 006004 JSR ORINIT START INITIALIZING THE PRINT HEAD 
47 40041 000777 JMP ool 


48 40042 043000 RTOP: INITA+RET 


PRUPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 
COPYRIGHT DGC, 1979 
10015 LP201 


OL INIT? sSUBROUTINE TO INITIALIZE THE HEAD 

02 ’ 

03 40043 054070 STA 3, TEMPS ;SAVE THE RETURN ADDRESS 

04 IN 1,1 : 

05 40044 026011 LDA 1,2.PIN+1 

G6 40045 12511e MOVL# 1,1,SZ2C ;SKIP IF AT HOME 

07 40046 000410 JMP LFTIN 

08 40047 006057 JSR @PDECS ;TAKE INCREMENTAL STEPS TO THE RIGHT 
09 40050 040043 PINITs INIT 

10 40051 004431 JSR INTRT sNEXT TIME RETURN .+1 

ii IN 1,1 . 

12 400S2 026011 . LDA 1,0.PIN+) 

13 40053 125113 MOVL# 1/1,SNC SKIP AFTER GOING OUT OF HOME 
14 40054 000427 JMP INTRT+1 sRETURN 

15 40055 006055 . JSR @PSTOP sSTOP THE HORIZONTAL MOTOR 

16 40056 006056 LFTIN: JSR @PSTEP ;sMOVE TO THE LEFT AT HIGH SPEED 
17 400S7 004423 JSR INTRT 

18 IN Ort sREAD THE HOME FLAG 

19 40060 022011 LOA Ord.PINeL 

20 40061 101102 MOVL 0,0,SZ2C sSKIP AFTER REACHING HOME 

21 40062 000421 JMP INTRT+1 

22 40065 060277 INTOS g 

23 40064 054317 LDA 3,PRTYP :GET THE PRINT TYPE (REGULAR OR 
24 + sCOMPRESSED) 

25 40065 024037 LOA 1,Ci5 ACL = 15 

26 40066 175213 MOVRA 3,3,SNC ;SKIP IF COMP. PRINT MODE 

27 40067 024034 LOA 1,C10 

28 40070 044102 STA 1,HSLEW 

29 40071 044101 STA 1,HPOS 

30 40072 004410 JSR INTRT AFTER STOPPING THE MOTOR RETURN 
3t e+1 TO START SLEW MOTION 

32 40073 050127 STA 2,HRTER 30 OUT THE HOR, ERROR FLAG 

33 40074 034754 LOA 3,PINIT 

34 40075 054004 STA. 3,RINIT 

35 40076 010113 1SZ . PRDIR +SKIP IF PRINTING WAS TQ THE LEFT 
36 40077 000571 JMP RITPR 

37 40100 120400 NEG 1,0 

38 20101 000570 JMP LFTPR SLEW & THEN PREPARE TO PRINT TO 
39 +THE LEFT 

40 40102 054004 INTRTS STA 3,RINIT 

41 40103 034036 LDA 3,013 2AC3 = 13 

42 40104 060277 INTDS 

43 40105 020134 LOA 0,OT3FL 

44 40106 163400 AND 3,0 sMASKOUT BIT 13 

4S 40107 080134 STA 0,OT3FL 

46 40110 060177 INTEN 

47 401i 002070 IMP @TEMP3 sRETURN 

48 40412 024074 VRTTBs LDA 1,VPOS ;GET THE VERTICAL POSITION 

49 80413 030075 LDA 2,VRSTP 

50 401414 073101 OIV 

S51 40115 006474 JSR @PTBCAL 3GO CALCULATE POSITION 

52 40116 000202 VTAB- FOR NEXT VERTICAL TAB 

53 40117 000007 7 

54 40120 125005 MOV 1,1,SNR sSKIP IF SOME STEPS REQUIRED 

55 40821 000455 * MP CARIG 

56 40122 030075 LDA 2,VRSTP 3;GET NUMBER OF STEPS PER LINE 
57 40123 073301 MUL sCALCULATE NUMBER OF STEPS 
$8,40124 121000 MOV 1,0 sFOR VERTICAL TAB 

59 40125 000450 JMP VUCNST 


>. 


PROPRIETARY INFORMATION OF DATA 
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$0016 LP201 

01 40126 000066 CPO: RETA 


GENERAL CORPORATION, 


Q2 40127 034024 PFSS: LDA 3,FRMFL 3GET STATUS OF FORM LENGTH 

03 40130 175005 MOV 3,3,SNR ;SKIP IF SOME FORM LENGTH IS SET 

04 40131 000445 JMP CARIG 3NO FORM LENGTH SET 

0S 40132 143000 SKAU: ADD 2,0 :SET UP NUMBER OF STEPS 

06 40133 000442 JMP VUCNST 3:GO TAKE STEPS 

07 40134 030555 LDA 2,€3000 sAC2 IS APROX, 3000 

08 40135 050150 STA 2,SWTIM sDISABLE THE LINE FEED AND FORM FEED 
09 sSWITCHES FOR SOME TIME 

10 NXTLNS sENTER TO PROCESS THE NEXT LINE 

11 40136 115004 MOV 0+3,SZR ;SKIP IF MOTOR HAS STOPPED 

312 40137 000562 SMP STP1 

13 40140 152000 ADC ere. 

24 40141 050063 STA 2,CHROY sRESET THE CHARACTER READY FLAG 

15 40142 030024 LDA 2,FRMFL :ACO = FORMS? COUNT 

16 40143 034074 LOA 3,VPGS ;AC3 = VERT. POSITION 

17 40144 156443 SUBO 2/3,SNC sSKIP IF VERTICAL POSITION HAS NOT 
18 #GONE OVER THE TOP OF FORM 

19 40145 054074 STA 3,VPOS 

20 40146 020036 LDA 0,cizs ~ 

21 40147 122405 SUB 1,0,SNR :SKIP IF NOT VERTICAL TAS 

22 

23 40150 000742 SMP VRTTB 

24 40151 125202 MOVR 1,1,S2C SKIP IF NOT A "CR" 

25 40152 000424 JMP CARIG 

26 40153 o20024 LDA 0, FRNFL 

27 40154 101005 MOV 0,0,SNR ;SKIP IF NO FORMS OPTION 

28 40155 000410 SMP PFSSI +NO FURMS 

29 40156 034074 LDA 3,VPQS ;AC3 = VERTICAL POSITION 

30 40157 030163 LDA 2,AUTSK ;:GET THE NUMBER OF STEPS TO BE TAKEN 
31 ; 3FOR AUTO SKIP MODE 

32 40160 175000 ADO 3,2 

33 40161 112440 suBO 0,2 :SET CARRY TO 0 IF AUTO SKIP IS DESIRED 
34 40t62 030075 LDA 2,VRSTP 

35 40163 162402 Sus 3,0,SZC ;SKIP IF AUTO SKIP 1S DESIRED 

36 40168 000746 JMP SKAU 

37 40165 125203 PFSSI: MOVR 1,1,SNC sSKIP IF NOT FORM FEED 

38 40166 000741 JMP PFSS 

39 40167 020075 LDA 0,VRSTP ;ACO = NUMBER OF STEPS TO BE TAKEN 
40 FOR A LINE FEED 

41 40170 034143 LOA 3,PSPFL ;READ THE PLOTTING MODE SELECT SWITCH 
42 40171 175004 MOV 3,3,SZR sSKIP IF PLOTTING MODE IS NOT SELECTED 
43 40172 020006 LOA 0,CS ;ACO = NUMBER OF STEPS FOR PLOT 

44 40173 176400 SUB 3,3 CLEAR AC3 

4S 40174 054143 STA 3,PSPFL :CLEAR PLOT STATUS 

46 40175 006426 VUCNST: JSR OPVSTP 

47 40176 024101 CARIG: LDA 1,HPO0S GET THE HORIZONTAL POSITION 

48 40177 010177 sz LTOFL sSKIP IF ON LINE 

439 40200 000470 IMP RITPR sINITIALIZE THE CARRIAGE 

SOQ 40201 014062 0sz LINES #DECEREMENT LINE NUMBER COUNTER 

Si 40202 000401 SMP oti sIGNORE THE SKIP 

52 40203 006411 JSR @PGET LOAD ACO WITH THE NUMBER OF LEADING 
33 sSPACES, RETURN .+3 


54 40204 000225 STAK: 2e5 
55 40205 000021 Cel: cay 
56 40206 040106 STA 0, TEMPS 


S58 40207 006405 JSR OPGET 


t TEMPORARILY SAVE THE NUMBER OF LEADING 
SPACES 

LOAD ACO WITH THE ESCAPE COMMAND FLAG 
117 WILL BE 0 IF THERE 18 NO COMMAND IN 
sTHE LINE 
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OO17 LP201 0018 LP201 
O1 40210 042432 POFLNI: OFLNI 01 sCURRENT HORIZONTAL POSITION 
02 40211 041130 PTBCAL: TBCAL 02 46260 175102 MOVL 3,3,8Z€ ;SKIP IF THERE ARE MORE LINES IN THE 
03 40212 040103 STA 0,TEMP1 TEMPORARILY SAVE ESC. COMMAND FLAG 03 7PRINT BUFFER OR THERE 1S NO ESCAPE 
04 40213 006401 JSR APGET ;LQ0AD ACO WITH THE NUMBER OF CHARS. 04 3:COMMAND IN THE LINE 
0S 2IN THE NEXT LINE, RETURN .+3 0S 40261 000407 JMP RITPR sNEXT LINE 1S TO BE PRINTED LEFT 
06 40214 041035 PGET: GET 06 ?TO RIGHT 
07 40215 000101 C100: 101 sNEVER RETURN HERE (EVERY “RETURN 07 40262 020102 LDA O,HSLEW ACO = FINAL POSITION OF THE LINE 
08 sAND NEW LINE WILL BE FOLLOWED 08 40263 142400 SuB 2,0 sACQ = TOTAL NUMBER OF PRINT COLUMNS 
09 7BY FOUR BYTES OF LOOK AHEAD INFOR- 09 sOCCUPIED BY THE CHARACTERS IN THE LINE 
10 +MATLION) 10 40264 106052 ADCO# 0,1,SZC :SKIP IF THE NUMBER OF CHAR, IN 
11 80216 024007 LDA 1,0332 ;sAC1 = 132 1t sTHE LINE ARE LESS THAN THE CURRENT 
12 40217 106452 SUBO# O,1,SZC SKIP IF THE SIZE OF THE NEXT LINE 12 sHORIZONTAL POSITION 
13 31S NOT OVER 132 COLUMNS 13 40265 101400 INC 0,0 IF THE NEXT LINE HAS TO START AT 
14 ao220 121000 MoV 1,0 14 sTHE CURRENT PRINT POSITION, UR IF 
15 40221 040102 STA O,HSLEW sSAVE THE PRINTABLE SIZE OF NEXT LINE 15 :THE HEAD IS TO MOVE TO THE RIGHT 
16 40222-006772 JSR OPGET 7GET THE NUMBER OF PRINTABLE CHARACTERS IN 16 ;THEN TAKE ONE EXTRA SLEW STEP 
17 sIN THE LINE, RETURN .+3 17 40266 122440 SuBO 1,0 sCARRY = 1 IF ACO < ACS IN WHICH 
18 40223 042323 PVSTP: VRSTJ 18 #CASE ACO WILL BECOME -IVE; OTHER] 
19 80224 041014 PPRBG: PRBG 19 sWISE CARRY = 0 AND ACO WILL BE +IVE 
20 40225 104000 com Ori 20 40267 106413 SUB# O,t,/SNC°:SKIP IF MOVING THE PRINTER TO THE 
21 40226 044110 STA 1,BACK 21 sRIGHT IS INEFFICIENT 
22 40227 034161 LDA 3,ELNEN 3AC3 = PRINT TYPE 22 40270 120401 RiITPR: NEG 1,0,SKP 
23 40230 030106 LDA 2,TEMPS :AC2 = NUMBER OF LEADING SPACES 23 40271 176001 LFTPR: ADC 3,3,SKP :AC3 = -1 
24 40231 024007 LDA 1,0132. sACC1 = 132, 24 40272 176520 SUBZL 3,3 7AC3 = 1 
25 40232 146443 SUBO 2,1,SNC ;SKIP IF NUMBER OF LEADING SPACES IS 25 40273 054113 STA 3,PRDIR :"PROIR" WILL BE 1 IF THE PRINT 
26 7GREATER THAN 132 26 7DIRECTION IS GOING TO BE RIGHT AND 
27 40233 000403 JMP ot3 e7 sel IF IT IS GOING TO SE LEFT 
26 40234 133000 ADD 1,2 28 40274 126400 VURST: SUB 1,1 
29 40235 126400 SUB 1,1 29 4027S 044170 STA {,RETRY sCLEAR THE ERROR FLAG FOR RETRYS 
30 40236 175112 MOVLA 3,3,SZC ;SKIP IF NOT ELONGATED MODE 30 40276 044145 STA 1,VUFLG ;CLEAR THE FLAG TQ INDICATE THAT 
31 40237 101120 MOVZL . 0,0 sMULTIPLY THE NUMBER OF CHARACTERS 31 sVIEW HAS TAKEN PLACE 
32 sIN THE LINE BY 2 32 40277 024676 LOA 1,VUCNST +GET THE VIEW CONSTANT 
33 40240 106452 SUBO4 Ort,SZC sSKIP IF THE CHARACTERS WILL NOT CAUSE 33 40300 044165 STA 1,VUTIM sINIT THE VIEW TIMER 
34 rLINE TO GO OVER 132 COLUMN 34 40301 105102 VUSLU: MOVE 0,1,SZC ;SKIP IF SLEW DIRECTION IS TO 
3S 40241 121000 MOV 1,0 35 :THE RIGHT 
36 40242 175112 MOVL#8 3,3,SZC ;SKIP IF NOT ELONGATED 36 40302 100400 NEG 0,0 sACO = NUMBER OF SLEW STEPS 
37 40243 101220 MOVZR 0,0 sDIVIDE BY 2 37 40303 126200 ADCR 1,1 sAC1 IS ~1 IF SLEW DIRECTION IS TO 
38 40244 024144 LDA 1,PLTSL sAC1 = 0 IF PLOTTING MODE NOT SELECTED 38 sTHE LEFT AND 77777 IF IT IS TO THE 
39 7& #f IF IT IS SELECTED 39 RIGHT 
40 40245 125223 MOVZR 1,1,SNC 40 40304 136415 SubA 1,3,SNR :AC3 WILL ONLY BE 0 WHEN BUTH 
41 40246 024103 LDA 1,TEMP1 ;GET THE ESC. COMMAND FLAG at sSLEW AND PRINT WILL BE IN THE 
42 40247 125235 MOVZR# 1,1,SNR ;SKIP IF THERE 1S A COMMAND TO 42 sREVERSE DIRECTION, IN WHICH CASE 
43 , sENABLE THE ELONGATED PRINT IN a3 +THE SLEW STEP HAS TO BE REDUCED BY 1 
44 +THIS LINE 44 40305 163000 ADD 3,0 
4S 40250 040107 STA O,CHCNT ;NUMBER OF PRINTABLE CHARACTERS IN 45 40306 040102 STA O,HSLEW ;SAVE THE NUMBER OF HORIZONTAL 
46 sTHE LINE 46 ;SLEW STEPS 
47 40251 134445 NEGO 1,3,SNR sSKIP IF THERE IS A ESCAPE COMMAND 47 40307 111005 MOV 0r2,SNR ;SKIP IF SOME SLEW STEPS ARE TO 
48 sIN THE LINE AND PREPARE TO PRINT 48 3BE TAKEN 
49 sLEFT TO RIGHT 49 40310 000560 JMP SCAN g 
50 40252 034062 LDA 3eLINES sAC3 = NUMBER OF LINES IN THE SO 40311 002713 C3000: JMP @PPRBG 
Si +BUFFER Sti ; 
S52 40253 165100 MOVL: 3,1 7IF THERE ARE NO MORE LINES IN THE S2 40312 024130 SLCHK: LDA 1,HSTFL 3GET THE LAST HORIZ. STEP THAT 
53 sPRINT BUFFER THEN MAKE THE CARRY 1 53 7WAS ISSUED 
54 40254 101105 MOVL 0,0,SNR s:SKIP IF THERE ARE SOME PRINTABLE S4 40313 030005 LDA 2eC4 sAC2 = 4 
55 sCHARACTERS IN THE LINE OR THIS IS THE SS 40314 147404 AND 2,1,8Z2R ;SKIP IF MOVING TO RIGHT 
56 sONLY LINE IN THE BUFFER 5@ 40315 126000 ADC 171 sACL = @1 
57 40255 000415 JMP LFTPR+1 57 40316 034033 LDA 3,C7 sAC3 = 7 
58, 40256 024101 LDA 1,HPOS ;GET THE HORIZONTAL POSITION 58 40317 116443 SUBD 0,3,SNC :SKIP IF MORE THAN 7 CHARS. POSITIONS 
S9 40257 146426 SUBZ 2/1,SEZ sSKIP IF THE NUMBER OF LEADING s9 sLEFT IN THE SLEW MOTION 
60 sSPACES IS EQUAL OR MORE THAN THE 60 40320 006057 JSR @PDECS sSTART SLOW STEPS AND RETURN 


— 


0019 OL 
O1 40321 
02 
03 40322 
04 40323 
os 
06 40324 
07 
08 40325 
09 40326 
16 40327 
11 40330 
12 40331 
13 40332 
14 40333 
15 40334 


16, 40335. 


17 40336 
18 40337 
19 40340 
20 40341 
21 40342 
22 40343 
23 40344 


25 40345 
26 40346 
27 40347 
28 40350 
29 40351 
30 40352 
31 40353 
32 40354 


34 40355 
35 40356 
36 40357 
37 40360 


39 40361 
40 40362 
Gt 460363 
42 40364 
43 40365 


45 40366 


47 40367 
48 40370 
49 40371 
50 40372 
51 40373 
52 40374 
53 40375 
54 40376 
55 40377 
56 40400 
57 40401 


59 40402 
60 40403 
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Peot 
111004 


030005 
OS0L31 


000s44 


040134 
044177 
132043 
000513 
175213 
125521 
1751143 
002771 
000507 
050120 
000404 
020030 
040176 
152001 
030031 
050201 


022014 
030065 
143404 
001400 
020436 
030201 
151005 
020631 


030041 
113000 
041000 
001400 


034160 
175005 
034556 
175405 
054157 


054160 


030042 
113000 
041000 
030623 
112404 
000474 
102400 
006055 
004743 
020615 
000766 


020402 
000764 


STPi: 


PNXT: 
LNFRIis 


HDINTs 
SNBYAS 


SNBYs 


SERYYs 


DSCNCTs 


OTWO: 


HELPs 


RTSNOD: 


1979 
MOV 


LOA 
STA 


JMP 


NXTLN=2 
STA 
ADCcO 
JMP 
MOVR# 
INCZL 
MOVL# 
JMP 
JMP 
STA 
JMP 
LDA 
STA 
ADC 
LOA 
STA 
IN 
LDA 
LDA 
AND 
JMP 
LDA 
LDA 
MoV 
LDA 
our 
LDA 
ADD, 
STA 
JMP 
eKCOME 
LDA 
MoV 
LOA 
INC 
STA 


STA 
out 
LDA 
ADO 
STA 
LDA 
sua 
JMP - 
SuB 
JSR 


’ JSR 


LDA 
JMP 


LDA 
UMP 


0,2,8ZR SKIP IF THE HORIZONTAL MOTOR IS NOT 
3 STEPPING 

2,ca 

2,STPFL s:PREPARE TO SLOW DOWN AND STOP AFTER 
74 PRINT POSITIONS 

SCAN 


1,LTOFL sPRETEND TO SE OFF LINE 

te2,SNC ;SKIP IF THE COUNT WAS 0 

LNFR2 : 
3,3,SNC 3;SKIP IF NEW LINE IS NOT OESIRED 
4/1,SKP 3AC1 = 2 

3,3,SNC SKIP IF FORMFEED IS NOT DESIRED 
@PNXT 


LNFR2+1 
2,PFMD SET STATUS OF OUT OF FORMS 
SNBY+1 sSEND BUSY TO HUST 


0,C1000 sSET COUNT FOR BUFFER CLEAR 
0,8UFST 
2e2,eSKP sMAKE AC@ EQUAL TO 1 


2,C377  sMAKE AC2 = 377 

2,BYFLG ;SET BUSY FLAG 

0,4 i 

0,a.PIN+G 

2,C2 

2,0,SZ2R ;SKIP IF SOFEWARE BUSY 

0,3 

0,C23 SEND SOFTWARE BUSY TO HOST 
2,BYFLG 


-2,2,SNR sTEST FOR CLEAR OR BUSY 


0,C2i 7SEND CLEAR 
Orlr2 

2, -POUT+I 

0,2 

0,0,2 


0,3 sRETURN AFTER SENDING BUSY 
HERE TO DISCONECT THE DATA SET : 
3,DTAST 3;GET THE DATA SET TIMER 
3,/3,SNR ;SKIP IF THE TIMER IS ON 
3,DSRTM s;PREPARE TO INIT THE TIMER 
3/3,S5NR ;SKIP WHEN THE TIME IS OVER 
3,OSRFL ;PREPARE TO RETURN FOR ISSUING 
sANOTHER BREAK 


3,DTAST 

O,2r2 sISSUE A BREAK 
2,-POUT+2 

Ore 

0,0,2 

2,€C100 GET ERROR STATUS 


0,2,SZR ;TEST FOR ERROR 
SCAN 3NO ERROR RETURN TO SCAN 
0,0 CLEAR ACO 
@PSTOP +STOP THE MOTORS THIS IS AN ERROR 
SNBY 7SEND BUSY TO HOST THIS IS AN ERROR 
0,C100 ;GET ERROR STATUS 
OTWO SET ERROR LIGHT ISSUE BREAK 

RESET RUN LED ON CONTROL BOARD 
0,C76 
OTWwO 
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0020 LPeo! 


01 
02 
03 
o4 
os 
06 
07 
08 
09 
10 
11 


40404 
40405 
40406 
40407 
40410 
40411 
404t2 
80413 
soaia 
404ais 
40416 


000074 
000057 
000874 
000023 
000076 
041231 
042644 
042630 
040340 
000046 
041035 


C76: 
cs73: 
0128% 
Ces: 
C743 
PROTTO? 
PTEST: 
PBELL: 
SNBYZ=s 
C4as 
GET4s 


COPYRIGHT DGC. 1979 


74 sCONSTANTS 


~ 


fooal 


OL 
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40417 
40420 


40a24 


40422 
40423 


40424 
40425 


40426 
40427 


40430 
40431 
40432 


40433" 


B0434 


40435 
40436 


40437 
40440 


4044} 


40442 
40443 
40444 


40445 
40446 
80447 
40450 
40451 
40452 


40453 
40454 
4045S 
40456 
40457 
40460 
40461 


40462 
40463 
40464 
40465 
40466 
40467 


LP2ot 


034114 EMPTY: 
161004 


000447 


036014 
177320 


024165 
125006 


014165 
000410 


020033 
024101 
030754 
132442 
100000 


o4014s 
000643 


024073 LNFRMS 
030150 


125005 


0006648 
050150 LNFR2: 
030130 


151005 
000422 
0060S5 
065077 
020107 
101005 


024031 
000417 
020201 OFLST=: 
101015 
004664 
020735 
000425 


102400 SNCL: 
040201 

040120 

004660 

000402 

040152 ESCST: 


1979 


3,PRCNT 
3,0,SZR 


SCAN 
344 


3,O.PIN+4 


3,3 


1,VUTIM 
1,1,SEZ 


VUTIM 
LNFRM 


0,C7 
1,HPOS 
2,01%26 
1,2,52C 
0,0 


0,VUFLG 
VUSLU 


1,VSLEW 
2,SWTIM 


1,1,SNR 
LNFRi 


2,SWTIh 
2,HSTFL 


“2/2,SNR 


SCAN 
@aPSTOP 


0,CHCNT 
0,0,SNR 


1,C377 
SCAN+3 
0,BYFLG 
0+0,SNR 
SNBY+1 
0,044 
OFRET 


0,0 
0,BYFLG 
0.PFMD 
SERBY 
SCAN 
0,ESFLi 


GENERAL CORPORATION, 


SKIP IF PRINTING OF THE LAST 
sCHARACTER IS OVER 


sLOAD CARRY WITH 1 IF VIEW MODE IS 
sENABLED, 0 OTHERWISE 

sAC1 = VIEW TIME 

SKIP IF NO VIEW OESIRED OR THE VIEW 
sMOTION HAS ALREADY TAKEN PLACE 
SKIP IF TIME TO MOVE FOR VIEW 
?OTHERWISE GO TO CHECK FOR LINE FEED 
30R FORM FEEO SWITCHES 

3ACO = 7 

sREAD THE HORIZONTAL POSITION 

3:AC2 = 128. 

+SKIP IF LESS THAN 128, 

sOTHERWISE VIEW MODE WILL MOVE THE 
CARRIAGE TO THE LEFT 


READ THE SWITCH COUNT,IT HAS TO 
3BE 0 FOR THE SWITCH TO BE READ 
SKIP IF VERTICAL MOTION IS TAKING 
PLACE 


3GET THE LAST HORIZONTAL COMMAND THAT 
sWAS ISSUED 
SKIP IF THE MOTOR IS MOVING 


3STOP THE MOTOR 

sOISABLE THE REAL TIME CLOCK 

3SEE IF CHARACTERS ARE IN BUFFER 

1SKIP IF THE STOP WAS ISSUED BECAUSE THE 
sPRINTER WENT OFF LINE WHILE IT WAS 
FPRINTING THE CHARACTERS ON LINE 


sTEST IF BUSY IS SET 
:SEND BUSY TO HOST 
sGET OFF LINE STATUS 
sRETURN TO SCAN 


?CLEAR ACO 

7CLEAR BUSY FLAG 

7CLEAR FORM ERROR 

3GOQ CHECK ON WHICH CLEAR 

sRETURN TO SCAN 

3SET A FLAG TO INDICATE THAT AN 
sESCAPE COMMAND IS BEING DECODED 


o1 


40470 
40471 
40472 


40473 
40474 
40475 
40476 
40477 
40500 
S050! 


40502 
40503 
40504 
40505 
40506 


40507 


40510 
40511 
40512 
40513 
40514 
40515 
40516 
40517 
40520 
40521 
40522 
40523 
40524 
40525 
40526 
40527 
40530 
40531 


40532 
40533 
40534 
40535 
40536 
80537 
40540 
40sai 


40542 
40543 
40544 
40545 
40546 


90547 
40550 
40551 
405S5e 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 
CUPYRIGHT OGC, 


0022 LP201 


176400 
024164 
166043 


044164 
014061 
006716 
010061 
030071 
1St224 
014075 


026014 
020705 
127103 
000750 
152200 


050104 


034177 
030031 
156414 
030104 
034063 
175405 
050177 
034175 
1751312 
020674 
034006 
030201 
151014 
162000 
030104 
034160 
175004 
020654 


034042 
117000 
041400 
135300 
175113 
000407 
034157 
175005 


175400 
175405 
000615 
054157 
147503 


000417 
034053 
020201 
117414 


SCAN: 


OFRET: 


OSRTM3 


SCANS: 


1979 


sLQOK FOR SOMETHING TO DU 


LOA 
ADCO 


STA 
0S2Z 
JSR 
182 
LOA 
MOVZR 
DSZ 


IN 
LOA 
LDA 
ADDL 
JMP 
ADCR 


STA 


LOA 
LDA 
Subs 
LDA 
LDA 
INC 
STA 
LDA 
MOVL# 
LOA 
LDA 
LDA 
MOVa 
ADC 
LDA 
LOA 
MOV 
LOA 
OUT 
LDA 
AbD 
STA 
MOVS 
MOVL& 
JMP 
LDA 
MOV 


Inc. 
INC 
JMP 
STA 
ANDL 


JMP 
LDA 
LDA 
AND& 


SUB 3,3 

1,DELAY 

3+1,SNC :SKIP IF DELAY STARTED AFTER 
:THE STOP COMMAND IS OVER 


1,DELAY 

BLCNT sSKIP IF THE BELL IS NOT TO BE RUNG 

@PBELL RING THE BELL 

BLENT tMAKE IT 1 FOR NEXT TIME’S SKIP 

2,VRTWT 

2e2,SZ2R ;DECREMENT BUT DON'T MAKE IT NEGATIVE 

* YRTWT s"VRTWT" WILL BECOME 0 WHEN THE VERTICAL 

sWAIT IS OVER 

164 3GET THE STATUS 

1,0.PIN+4 

0,074 7ACO = 74 

1,1,SNC :SKIP IF PRINTER IS ON LINE 

OFLST 7GO CHECK ON BUSY STATUS 

2.2 sAC2 = =t FOR ON LINE ANO 77777 FOR OFF 
LINE 

2,TEMP2-;TEMP2 WILL BE -1 FOR ON LINE, BIT 0 


;WILL BE 0 FOR OFF LINE 
3,LTOFL sLINE TERMINATOR STATUS 
2,C377 
2¢3,SZR 3SKIP IF TERMINATOR 
2,TEMPe ;GET ON/OFF LINE STATUS 
3,CHROY 
3,3,SNR ;SKIP IF READY TO PRINT CHARACTER 
2,LTOFL ;UPDATE TERMINATOR STATUS 
3,STFLG 3GET STATUS OF SELF TEST 
3,3,S2C s;SKIP IF NOT IN SELF TEST MODE 
0,Caa 3GET READY RUN LITE STATUS 
3,¢5 
2,BYFLG ;GET STATUS OF BUSY 
2,2,SZ2R ;TEST FOR BUSY 
3,0 IF BUSY MAKE STATUS RTS NOT READY 
2,TEMP2 ;RESTORE AC2 
3,0TAST ;CHECK IF BREAK WAS TAKING PLACE 
3,3,8Z2R 
0,CS7 
0,2-3 
3, .POUT+2 
0,3 
0,0,3 
1,3 
3,3,SNC ;SKIP IF ON LINE AND DSR IS NOT ZERO 
SCANS ‘ 
3,DSRFL ;GET THE DATA SET READY FLAG 
3,3,SNR ;SKIP IF NO CHARACTER HAS BEEN RECEIVED 
#SINCE THE TIMER STARTED 
3,3 sOTHERWISE LOAD THE VALUE OF THE TIMER 
3,3,SNR sSKIP IF THE WAIT TIME IS NOT OVER 
DSCNCT sDISCONNECT THE DATA SET 
3,0SRFL 
@eteSNC sCARRY = 0 IF NO CHARACTER TO GE 
READ OR IF OFF LINE 


SET BIT 15 FOR BREAK 


SCANO 
3,060 
0,BYFLG ;GET BUSY STATUS 
0,3,SZR ;TEST IF BUSY 


0023 LP2d! 
01 000410 
02 020022 
° 03 162023 
oq 006636 
os 006632 
06 000406 
07 042430 
08 040312 
09 
10 Q22014 
11 101203 
12 000772 
13 1497503 
1a 
15 000432 
16 127123 
7 000611 
18 "044066 
19 020031 
20 
et 036013 
22 175102 
23 os4201 
24 116415 
25 000662 
26 020175 
a7 101112 
28 006607 
29 034063 
30 
31 
32 
33 175415 
34 
35 
36 006610 
37 
39 
40 000412 
ai 024066 
42 125103 
43 000404 
a4 040063 
4s 034031 
46 OS4177 
47 2 
48 034041 
49 117000 
50 041400 
51 024166 
Se 020102 
53 125005 
54 
ss 101005 
56 000402 
S7 002734 
58 0246131 
59 40630 125004 
60 ‘40631 000637 


1979 


JMP 
LDA 
ADCZ 
JSR 


INCH 


JSR- 


JMP 
LOA 
MOVE 
JMP 
STA 
LDA 
STA 
OUT 
LOA 
ADO 
STA 
LDA 
LDA 
MoV 


MOV 
JMP 
JUMP 
LDA 
MOV 
UMP 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 
COPYRIGHT OGC, 


SCANG 

0,FEFOB+LO 

3,0,SNC ¢TEST IF FIFUB IS FULL 
@SNBYZ ;SEND BUSY TO HOST 
@PROTTO ;GO READ IN CHARACTER 


SCANO 
0,4 7GET STATUS 
0,d.PIN+4 


0,0,SNC ;TEST FOR SERIAL INTERFACE 

SCANS +SERIAL GO GET DATA 

@e1/¢SNC CARRY = 0 IF THE UART IS BUSY OR OFF 
sLINE, 1 OTHERWISE 

SCAN1 

1,1,SNC ;SKIP IF CLEAR TO SEND 

RTSND sREQUEST TO SEND 

1,RETA sTEMPORARILY SAVE THE ING 

0,C377 

3,3 

3,0,PIN+3 

3,3,S2Z2C ;SKIP IF OUT OF FORMS 

3,BYFLG ;GET STATUS OF BUSY 

0,3,SNR ;TEST TO SEE IF BUFFER WAS FULL 

SNCL sSEND CLEAR TO HOST 

0,STFLG ;GET STATUS OF SELF TEST 

0-0,SZC sSKIP IF NOT IN SELF TEST 

OPTEST $PUT DATA IN FIFOB 

3,CHROY sAC3 WILL HAVE THE CHARACTER BEING 
sPRINTED OR +1 IF NO CHARACTER IS 
tBEING PRINTED 


"3,3,SNR ;IF LOCAL COPY IS REQUIRED THEN CHECK 


;THE PRINT BUFFER TO SEE THAT IT CAN 
sACCEPT THE CHARACTER 

aGET4 sREAD THE CHARACTER FROM THE KEYSOARD 
sFIFO (FIFOA) IF CHARACTER IS AVAILABLE 
IN THE KEYBOARD FIFO THEN RETURN .+2 


SCAN1 

1,RETA READ THE SAVED ING 

1,1,SNC ;SKIP IF LOCAL COPY DESIRED 
SCOTH 

O-CHRDY 

3,0377 

3/LTOFL sSET UP FOR LINE TERM 

O,1,3 :SEND CHAR TO HOST 

3, .POUT+1 


0, HSLEW 
1,1,SNR ;SKIP IF SLEW MOTION IS QUE TO 
7A TAB COMMAND 
0,0,SNR +SKIP IF SLEW STEPS ARE BEING TAKEN 
et2 
@PSLCHK 
1,STPFL erie 
1¢1,SZR sWAIT FOR THE STOP COMMAND TO COMPLETE 
SCAN 


PROPRIETARY INFORMATION OF DATA 
COPYRIGHT DGC. 1979 


GENERAL CORPORATION, 


0024 LP20i 

OL 020063 LDA 0,CHRDY 

02 101414 Inc# 0,0,SZR ;SKIP IF THERE 1S ‘NO CHARACTER READY 
03 : . 3FOR PRINTING 

04 40634 000440 JMP GTITL 

os 151525 INCZL 2,2,SNR ;SKIP IF ON LINE 

06 006723 BLCNST: JSR @POQFLO $SET UP THE MACHINE STATUS & RETURN 
07 3.+8 

08 030107 LOA 2,CHCNT sAC2 = CHARACTERS LEFT IN THE LINE 
09 143043 ADDO 2,0,SNC ;DECREMENT BUT DON'T MAKE IT NEGATIVE 
10 040107 STA 0,CHCNT 

11 024113 LDA i1,PROIR ;AC1 IS =1 IF PRINT DIRECTION IS 

12 af ?TO THE LEFT AND 1 OTHERWISE 

13 125415 Inc# 1,i1,SNR ;SKIP IF PRINTING TO RIGHT 

14 000407 JMP LIFO LAST CHARACTER IN THE LINE WILL 

15 7BE PRINTED FIRST 

16 004566 JSR GET sL0AD0 ACO WITH A CHARACTER FROM 

17 :FIFOB RETURN .+2 OR .+3 

18 40646 004567 JSR GET1 7LOAD ACO WITH A CHARACTER FROM 

19 F tFIFOA 

20 40647 002554 JMP ®MEMPT1 3JUMP IF FIFO IS EMPTY 

21 40650 000412 IMP GOTIT 

22 040274 PYURST? VURST 

23 40652 040467 PESCT: ESCST 

24 

25 40653 140445 LIFO: NEGO 2/0,SNR ;SKIP IF THIS IS NOT THE LAST 

26 7CHARACTER IN THE LINE, OTHERWISE 
27 7SET THE CARRY TO 0 

28 40654 ve0110 ~ LDA 0,BACK ;ACU = COMPLEMENT OF THE NUMBER UF 
29 sCHARACTERS IN THE LINE 

30 4065S 030050 LDA 2,PFIFR ;AC2 = POINTER TO FIFOB 

31 40656 025002 LDA 1,L0,2 

32 106403 SUB O,1+SNC ;SKIP IF NOT END OF THE LINE 

33 40660 045002 STA 1,L0-2 

34 004564 JSR GET2 7GET THE NEXT CHARACTER TO BE PRINT 
35 7ED WHILE GOING BACKWARD 

36 GOTIT: IN 2,4 

37 40662 032014 LDA 2,0.PIN+4 

38 40663 153113 ADDL# 222,/SNC sTEST FOR ON LINE 

39 40664 000407 JMP GTITi=-1 300 NOT CHECK ESC OFFLINE 

40 40665 030152 LDA 2,ESFL1 sESFLI WILL BE 0 IF THERE IS NO 

at sESCAPE COMMAND SEING DECODED 

42 40666 151004 MOV 2,2,SZR :SKIP IF NO ESCAPE COMMAND IS BEING 
43 < 7DECODED 

44 40667 002533 JMP @PESDCD ;DECODE THE ESCAPE COMMAND 

45 20670 030051 LDA 2,033 sAC2 = 33 

46 40671 112415 SUB# 0,2,SNR ;SKIP IF IT WAS NOT STARTING OF AN 
47 sESCAPE COMMAND 

48 40672 002760 JMP OPESCT SET ESFLIi 

49 40673 040063 STA O,CHRDY sCHROY IS THE NEXT CHAR, TO BE - ae 
50 >PRINTED 

51 40674 030120 GTITis LOA 2,PFMD 3GET STATUS OF OUT OF FORMS 

52 40675 151004 MOV 2,2,SZ2R ;SKIP IF FORMS OK 

53 40676 002525 JMP DEMPT1 yFORM ERROR RETURN TO SCAN 

54 40677 020145 LOA Q,VUFLG :GET VIEW FLAG 

5S 40700 100404 NEG 0,0-SZR ;SKIP IF CARRIAGE WAS NOT MOVED FOR 
S6 7THE VIEW 

S7 40701 002750 IMP @PVURST sQTHERWISE RESET THE CARRIAGE 

58 40702 024127 LDA 1,HRTER #GET THE HEAD ERROR FLAG 

$9 40703 125004 MOV ~ 1,1,SZR :SKIP IF THE HEAD WAS NOT MOVED 

60 40704 000520 JMP TOINT sRESET THE HEAD 


0025 L 


59 
60 


40705 
40706 
40707 
40710 
40711 
40712 
40713 
40714 
40715 
40716 


40717 
40720 


40721 
40722 
40723 


40724 
40725 
40726 
40727 
40730 
4073) 
40732 
40733 
90734 
40735 
40736 
40737 
40740 
4074) 
40742 


GOT4S 
40744 
40745 
40746 
40747 


40750 


“40751 


40752 


40753 
40754 
40755 
40756 


40757 


40760 
40761 


“40762 


PROPRIETARY INFORMATION 


COPYRIGHT DGC, 
Pao. 
o30114 
151234 
000407 
020063 
034032 
1164406 
024113 
174406 
000554 
151005 GTlTe: 


030073 
151004 


002060 
050200 
050150 


020130 
024063 
034036 
136654 
034037 
136645 
002557 
030144 
151004 
000473 
151405 TPMFA$ 
002060 
152000 
050063 
174065 


002456 


044112 
024113 
OS410t 
130142 


030007 
156407 


002540 


030146 
050147 
030137 
050136 


030161 
034117 


175100 
151100 


1979 


LDA 
MOVZRA 
JMP 
LDA 
LOA 
SuBO 
LOA 
NEG 
JMP 
Mov 


LDA 
MOV 


JMP 
STA 
STA 


LOA 
LDA 
LDA 
SUBURS 
LDA 
SUBOR 
JMP 
LDA 
MOV 
JMP 
INC 
SMP 
AOC 
STA 
COMC 


JMP 


STA 
LOA 
LOA 
COMOL 


LOA 
SUB 


JMP 


LDA 
STA 
LDA 
STA 


LOA 
LDA 


MOVL 
MOVL 


OF DATA 


2;PRCNT 
272,S2R 
GTIiTe 
0,CHRDY 
3,C177 
0,3 
1,PROIR 
3,3,SEZ 
TapcD 
272,SNR 


2,VSLEW 
2,2,S2R 


@PSCAN 
2,TBFL 
2,Swtin 


O,HSTFL 
1,CHROY 
3,013 
1,3,S2R 
3,C15 
1,3,SNR 
@PNXTLN 
2ePLTSL 
2,2,SZR 
TPMF 
2/2-SWR 
OPSCAN 
22 
2,CHRDY 


“3,3,SNR 


OPALTNT 


1,PRCHR 
1,PROIR 
3,HPOS 

1,2,SZC 


2,0132 
2,3,S8N 


aPSTP1 


2-SCRFL 
2,SCOR 

2,O0LFLG 
2,0LA0R 


2,/ELNEN 
3,PRTYP 


3,3 
2,2 


GENERAL CORPORATION, 


7GET THE PRINT STEPS 
3TEST FOR COUNT OF ONE 
3NO NOT ONE 


sMAKE ACS EQUAL TO 177 

#SET UP DATA FOR TAB 

3GET THE PRINT OIRECTION 

SKIP IF TAB IS NOT TO TAKE PLACE 
7GO TO SET SLEW MODE FOR TAB 

SKIP IF CHARACTER IS NOT COMPLETELY 
sPRINTED 


sSKIP IF A VERTICAL STEP “IS NOT BEING 
TAKEN 


SET STATUS OF TAB TO ZERO 
sRESET THE FLAG TO TIME THE LINEFEED 
sAND FORMFEED SWITCHES 


7ACO = HOREZ. COMMAND 

3AC3 = 13 

SKIP IF A LF OR VERTICAL TAB 
7AC3 = 15 


SKIP IF NOT A CR OR FF 

eSTART THE NEXT LINE 

1GET PLOT MODE FLAG 

3SKIP IF NOT IN PLOT MODE 

?SET SPECIAL STATUS FOR PLOT MODE 
sTEST TO SEE IF LINE IS TERMINATED 
sNOT YET RETURN TO SCAN 

2MAKE AC2 = #1 

sRESET THE CHARACTER READY FLAG 
3SKIP IF NOT A COMMAND RELATED TO 
ZALTERNATE CHARACTER 16 OR 17 
sEXECUTE THE ALTERNATE CHARACTER 
COMMAND GO WITH CARRY=0 TO SELECT 
rAND 1 TO DESELECT 


3GET PRINT DIRECTION 

3GET THE HORIZONTAL POSITION 

SKIP IF MOVING TO THE LEFT WITH 
?CARRY = 0 AND AC2 = 1 

sAC2 = 132. 

sSKIP IF "HPOS" IS LESS THAN 132 
3AND THE PRINT DIRECTION IS TO 

+THE RIGHT OR IT 1S MORE THAN 1 
AND THE PRINT DIRECTION IS TO LEFT 
tIF 132 CHARACTERS HAVE BEEN PRINTED 
sTHEN GO TO STOP THE MOTOR 

sPREPARE TO SET UNDER SCORE FLAG 


sSELECT/DESELECT DOWN LINE LOADED 
sCHARACTER SET 

READ THE FLAG FOR ELONGATED PRINT. BIT 
30 WILL BE SET IF THE NEXT CHARACTER IS 
7TO BE PRINTED UNDER ELONGATED MODE 


tMASKOUT BIT 0 
BIT 0 WILL REPRESENT ELONGATED PRINT 


o1 


40763 
40764 


40765 


40766 
40767 
40770 
40771 


40772 
40773 


40774 
40775 
40776 
40777 
41000 
41001 
41002 


41003 
41004 


41005 


41006 
41007 
41010 
41011 
41012 


41013 
41014 
43015 
41016 
41017 
41020 
41021 
41022 
41023 
41024 
41025 
41026 
41027 
81030 
41031 
91032 


PROPRIETARY INFORMATION OF DATA 
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175200 
054117 


151100 


030033 
125113 
152560 
050115 


030034 
143444 


141220 
175102 
030037 
050114 
010177 
000512 
030107 


034110 
157000 


101004 


117053 
102021 
101420 
040116 
112016 


002060 
034033 
172052 
006057 
006056 
002060 
041724 
061556 
040417 
125400 
152400 
006004 
002060 
050143 
030062 
000704 


RTOFL: 


SCAN2: 


PRBGS 


PALTANT 
PESOCD 
EMPTis 
TOINTS 


TPMFs 


ae ee 


1979 


MOVR 
STA 


MOVL 


LOA 
MOVL# 
SUBECL 
STA 


LOA 
ANDO 


MOV2R 
MOVL 
LDA 
STA 
18zZ 
JMP 
LDA 


LDA 
ADU 


MOV 


ADDOs# 
ADCZ 
INCZ 
STA 
AOCK 


JMP 
LDA 
ADCO# 
JSR 
JSR 
JMP 
ALTNT 
ESCEX 
EMPTY 
INC 
SUB 
JSR 
JMP 
STA 
LDA 
JMP 


3,3 
3,PRTYP 


2,2 


2.C7 
£41,SNC 
2,2 
2,PRADR 


“2,010 


2,0,SZR 


2,0 
3,3,S82C 
2,C15 
2,PRCNT 
LTOFL 
OFLN2 
2,CHCNT 


3,BACK 
2,3 


0,0,S2R 


0,3,SNC 
0,0,SKP 
0,0 

0, PRSKP 
0,2sSEZ 


@PSCAN 
3,C7 
3,2,SZC 
@PDECS 
OPSTEP 
dPSCAN 


Yet 

2r2 
@RINIT 
@PSCAN 
2,PSPFL 
2,LINES 
TPHMFA 


GENERAL CURPORATION, 


+SAVE THE PRINT TYPE? 0 FOR REG. PRINT 
BIT 15 WELL BE 1 FOR COMP, PRINT, AND 
BIT O WILL BE SET FOR ELONGATED PRINT 
sLQAD CARRY WITH THE STATE OF ELONGATED 
sPRINT MODE 


*SKIP IF MOVING TO LEFT 


sINIT. THE ADDRESS OF THE PRINT 
7COLUMN 
2AC2=10 
3ACO = 
7 SPEED 
sACO = 4 

7SKIP IF NOT ELONGATED 


NON 0 ONLY IF STEPPING AT HIGH 


3SET PRINT COUNT 
7SKIP IF ON LINE 


-yAC2 = NUMBER OF CHARACTERS LEFT IN 


sTHE LINE TO BE PRINTED 


3AC3 = NUMBER OF CHARACTERS PRINTED 
7SO FAR 

SKIP IF THE PRINT HEAD IS NOT MOVING 
sAT HIGH SPEED 

SKIP IF FIRST 4 CHARACTERS PRINTED 
sACO = #1 

7ACO = 5 

3SET THE FLAG TO SKIP 

sSKIP IF THE MOTOR IS NOT STEPPING 
tOR THERE ARE LESS THAN 7 CHARACTERS 
sIN THE LINE 


3AC3 = 7 

sSKIP IF THERE ARE 6 OR LESS CHAR. 
START DECELERATED STEPS 

sSTART INC. STEPS 


sINITIALIZE THE HEAD 

sMOVED BY HAND 

3SET SPECIAL FLAG FOR PLOT MODE 
sGET LINE STATUS OF BUFFER 
*RETURN TO MAIN 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 
COPYRIGHT DGC, 1979 
too27 LP2dot 


01 Gets 7**xGET CHAR INTO ACO FROM FIFOB 

02 7GET1 TO LOAD ACO FROM FIFOA . 

03 PICTURE OF A TYPICAL FIFO (RING BUFFER) 

04 sMASKs N 1 sNUMBER OF BYTES IN FIFO 
os < tL: 0 ;OFFSET FROM 8ASE IN BYTES 
06 7TO LAST CHAR PUT IN. 

07 LQ: N sOFFSET FROM LI IN 8YTES 
08 7TO LAST CHAR GOTTEN UUT. 
09 : BASEx2 38YTE POINTER TO BUFFER 
10 Fone 

it 7BASEs «BLK ?STARTING ADORESS OF BUFFER 
la TITSELF AND ITS LENGTH. 
13 : FLOSES ACI, AC2, CARRY : 

14 41033 030050 LDA 2,PFIFS 

15 41034 175401 INC 3,3,SKP sADD ONE TU RETURN ADDRESS 

16 41035 030566 GET1: LDA 2,PFIFA 

17 41036 021000 LDA O,MASKs2 

18 41037 025002 LDA 1,L0,2 : 

19 41040 106015 ADCH# 0,1,SNR ;SKIP IF BUFFER HAS CHARACTERS 
20 41041 001400 JMP 0-3 3NO CHAR, IN THE BUFFER 

21 41042 125400 INC 1,1 7SUB ONE CHARACTER FROM BUFFER 
22 41043 045002 STA 1,10,2 

23 41044 175400 INC 3,3 7ADD ONE TO RETURN ADDRESS 

24 41045 021001 GETa: LDA O,LI,2 

25 41046 107000 vel Or1 

26 41047 021000 LDA O,MASKr2 

27 41050 106053 ADCO# Ort, SNC 

28 41051 106000 ADC Ort 3AC1 = BYTE NUMBER TO BE READ 

29 41052 031003 - LDA 2,BBUF re pemee 

30 41053 133000 ADO 1,2 sAC2 = BYTE ADDRESS 

31 ’ LOBES x*xSUBROUTINE TO LOAD BYTES INTO ACO FROM 

32 BYTE ADDRESS IN AC2, 

33 7LOSES AC2,CARRY 

34 sREENTRANT 

35 41054 151200 MOVR 22 

36 41055 021000 LDA: 0,0,2 7GET WORD FROM BUFFER 

37 41056 101013 MOV 0,0,SNC +TEST WHICH BYTE 

38 41057 101300 MOVS 0,0 7SWAP BYTES 

39 41060 030031 MSKOT: LOA 2,C377 

40 41061 143400 AND 2,0 sSAVE ONLY RIGHT BYTE 

41 43062 024201 Loa 1,8YFLG s;GET BUFFER STATUS 

42 41063 125113 MOVL# 1,1,SNC. ;TEST IF BUFFER IS FULL 

43 41064 001400 JMP 0,3 7RETURN WITH CHARACTER 

44 41065 014176 0SZ BUF ST 7COUNT CHARACTERS TAKEN OUT OF BUFFER 
45 41066 001400 JMP 0,3 sRETURN WITH CHARACTER 

46 41067 050201 STA 2,BYFLG ;YES SET UP STATUS TO SEND CLEAR 
47 81070 001400 MP +} (073 3NO RETURN WITH CHARACTER 


PROPRIETARY INFORMATION OF DATA 
COPYRIGHT DGC, 1979 
$0026 LPeoi 


OL : 

02 41071 060277 TBOCD: INTOS 

03 41072 152000 ADC 2,2 

04 41073 020200 LDA 0, TBFL 
0S 41074 101405 INC 0,0,SNR 
06 41075 157000 ADD 2,3 

07 41076 050200 STA 2,TBFL 
08 41077 050063 STA 2,CHRDY 
0S 41100 030102 LDA 2,HSLEW 
10 41101 157000 ADD 2,3 

1i% 41102 020130 LDA O,HSTFL 
12 41103 152520 SUBZL ~ 2,2: 

13 41104 175440 INCG 3,3 

14 41105 0549102 STA 3,HSLEW 
15 41106 054166 STA 3,HTBFL 
16 41107 060177 INTEN 

17 G1i10 000702 JMP SCAN2 
18 


19 41411 040136 PNXTLN? NXTLN 
20 41112 040321 PSTP1s STPI 


21 

22 Gi113 101004 OFLNe: MOV 0,0,SZR 
23 

24 441114 000674 IMP RTOFL+1 
25 41115 152400 SUB 2,2 

26 41116 020112 © LDA 0,PRCHR 
27 41117 034082 © LDA 3,C40 
28 41120 116042 ADCO 0,3,SZC 
29 

30 41121 000666 JMP RTUFL 
31 41122 050114 STA 2,PRCNT 
32 41123 024454 LDA 1,RNBLL 
33 41124 034033 LDA 3,07 

34 41125 116405 SUB 0-3,/SNR 
35 41126 044061 STA 1,BLCNT 
36 41127 002060 JMP OPSCAN 


GENERAL CORPORATION, 


sMAKE AC2 EQUAL TO =1 

7GET STATUS OF TABS 

:TEST TO SEE IF SECOND TAB 
sYES 

3SET STATUS FOR NEXT TIME 
;RESET CHARACTER READY 

7GET STEPS LEFT IN SLEW MODE 


; 

:GET HORIZONAL COMMAND 

sMAKE AC2 EQUAL TO 1 

3AC3 = # OF SLEW STEPS TU BE TAKEN 
;PREPARE TO TAKE SOME STEPS 

;MAKE FLAG NON ZERO TAB SLEW STEPS 


“SSKIP IF THE HORIZONTAL MOTOR WAS NOT 
+STEPPIING AT HIGH SPEED 


GET THE CHARACTER THAT WILL BE PRINTED 
sACZ = 40 

ySKIP IF THE CHARACTER IS A NUN 
sPRINTABLE CHARACTER 


7D0N'T PRINT IT 
:GET COUNT FOR BELL 


;SKIP IF BELL NOT TO BE RUNG 
3SET UP BELL COUNT 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 
COPYRIGHT DGC, 


10029 


10 41130 
11041131 
12 41132 
1341133 
14 41134 
15 41135 
16 411436 
17 461137 


19 41140 
21 4tiay 


23 4itda 
24 41143 
25 4i144 
26 41145 
27 41146 


29 41347 
30 41150 
31 41151 
$2 41152 
33 41153 
34 41154 


36 41155 
37 41156 


39 41157 
40 41160 
41 a1i6t 
42 41162 
43 41163 
G4 44164 
4S 41165 
46 41166 
47 41167 
48 44170 
49 41171 
50 41172 
S1 41173 


LPe01 


054066 
102400 
030050 
073103 
112000 
050105 
031401 
035400 


137000 
132400 


050103 
110000 
v2a5400 
125220 
151404 


000776 
020105 
125225 
000404 
102400 
0004s) 


151400 
014103 


175401 
000412 
025400 
125005 
000772 
900402 
101400 
1es2e5 
000776 
024050 
073301 
034066 
001402 


TBCALS: 


TBCLOSs 
TBELIs 


TBCLe: 


TBCL3: 


1979 


s**COME HERE TO 


CALCULATE THE NUMBER OF POSITIONS 


+NEEOED TO COMPLETE THE TAB 


sENTER WITH ACI 


= CURRENT HORIZONTAL/VERTICAL POSITION 


sAC3 POINTING TO THE STARTING OF THE TAB BUFFER IN 


sPAGE 0 AND THE 
7THAN THE WORDS 
7THE SUBROUTINE 


sOF AC3 +2 

STA 3,RETA 
SUB 0,0 

LOA 2,C20 
OlV 

ADC 0.2 

STA 2,TEMPY 
LDA 2,1,3 
LOA 3,03 
Ao0 1,3 

SuB 1,2 

STA 2, TEMP1 
com 0,2 

LOA 1.0/3 
MOVZR 1,1 i 
INC 2/2,S2R 
JMP ere 

LDA 0, TEMPY 
MOVZR 1,1,SNR 
dMP TBCLI 
SuB 0,0 

JMP TBCLe 
Inc. 22 

082 TEMP1 
Inc 3,3,SKP 
JMP TACL3 
LDA 1,0,3 
MOV 1,1,SNR 
uMP TBCLO 
JMP «+2 

INC 0,0 
MOVZR 1,1,SNC 
SMP 72 

LOA 1,C20 
MUL 

LDA 3,RETA 
JMP 2,3 


NEXT LOCATION HAVING A NUMBER 1 MURE 
USED BY THE BUFFER 
WILL RETURN THE CONTROL TO THE CONTENTS 


+SAVE THE RETURN ADDRESS 


ACO = REMAINDER AND AC1- QUOTIENT 
sSAVE THE DIFFERENCE OF REMAINDER FROM 20 


sAC3 = POINTING TO THE STARTING OF THE 
7TAB BUFFER 

7AC3 = ADORESS OF THE LOCATION WHICH 
HAS THE CURRENT POSITION IN IT 

sAC2 = NUMBER OF LOCATIONS LEFT IN 
?THE TAB BUFFER +1 


SKIP AFTER MAKING BIT 15 OF ACI 
TEQUAL THE NEXT HORIZ./VERT. POSITION 


SKIP IF ANY TAB BIT IS SET IN 
7THIS WORLD 


sIF THIS SIT WAS SET THEN GET THE 
sDISTANCE FROM THE PRESENT POSIITION 


3SKIP IF ALL QF THE LOCATION IN THE TAB 
?BUFFER HAVE BEEN CHECKED 


READ THE NEXT LOCATION OF TAB BUFFER 
SKIP IF SOME BIT IN AC1 IS SET 


sSKIP IF THIS BIT WAS SET 
sAC1 = 20 


sRETURN AFTER LOADING AC1 WITH THE NO, 
OF POSITIONS TO BE MOVED FOR THE TAB 


PROPRIETARY INFORMATION OF DATA 


GENERAL CORPORATION, 


COPYRIGHT DGC, 1979 t 
10030 LPeui 
o1 : 
O2 41174 131102 KEYT1: MOVE 1,2,SZC :SKIP IF A TAB COMMAND 
03 41175 000513 JMP TOKEY 
04 41176 034124 TBRPT: LOA 3,PSFLG ;GET THE CHARACTER POSITION FLAG 
05 41177 010126 RWBLL: 18Z LNSIZ sINC. THE LINE SIZE 
06 41200 020032 LDA O,Ci77 =3ACO0 = 177 
07 41201 106037 ADCZ# O,1,SBN ;SKIP IF THE TAB REQUIRES A MOVEMENT 
08 30F MORE THAN 200 OCTAL CHARACTER 
09 sPOSITIONS 
10 41202 000533 JMP KEYTS 
11 41203 020064 LDA 0,ECLCT ;ACO = 1 FOR REGULAR & 2 FOR ELONGATED 
12 . sCHARACTERS BEING SAVED 
13 41204 117000 ADD 0,3 ACS = NEW HORIZONTAL POSITION 
14 41205 054124 STA 3,PSFLG 
15 43206 106400 SUB 0,1 sAC1 = NUMBER OF CHARACTER PUSITION LEFT 
16 #TO COMPLETE A HORIZONTAL TAB 
17 41207 044103 STA 1, TEMP) 
18 41210 020052 LOA 0,C40 
19 41231 006403 JSR OPPUT] SAVE A SPACE 
20 41212 024103 LOA 1, TEMP? 
21 41213 000763 JMP TBRPT 
22 41214 041424 PPUTI: PUTL 
23 
24 
25 KYBRDS ;**SUBROUTINE TO ACCEPT A KEY FROM THE KEYBOARD 
26 AND STORE IN THE FIFOA 
27 
28 IN 0,5 READ THE KEY 
29 41215 022015 LDA 0,d.PINt5 
30 41216 034032 LOA 3,0177 
31 41217 163400 AND 3,0 ¢STRIPT THE PARITY BIT 
32 41220 034066 LDA 3,RETA 
33 41221 054067 STA 3,RETS ¢SAVE "RETA" 
34 41222 006405 JSR OPPPUT 
35 43223 000025 PFIFA: FIFOA ;PUT IT IN FIFOA 
36 41224 034067 LDA S,RETS 
37 41225 054066 STA 3,RETA ;RESTOR "RETA" 
38 41226 002054 JMP @PRSTR RETURN 


39 41227 041422 PPPUT: PUT 
90 41230 041555 PESC: ESCSV 


$0031 


o1 
02 
03 
04 
05 
06 
07 
08 

09 
“10 
11 
12 
13 
14 


4t2si 


4le3e 
41233 
41234 
41235 
41236 
44237 
41240 
4124a4 
41242 
41243 
41244 


41245 
41246 
41247 


41250 
4t251 
41252 
91253 


41254 
4t255 


41256 
41257 


41260 
41261 
41262 
41263 
41264 
41265 
41266 
41267 
41270 
41271 
41ea7e 


41273 


41274 
41275 
41276 
41277 
41300 


41301 
41302 
41303 
41304 
41305 
41306 


41307 
41310 


ROTTOs 
062401 


de2di2 
105000 
152400 
OS01S7 
030031 
155400 
117405 
oe20031 
143400 
034132 
175014 


STDE: 


005400 
155220 
030151 


151234 


002757 


163400 
137400- 


030053 
112415 


000540 
030142 


151004 
000457 
o24uoas 
106645 
000527 
024034 
030036 
112654 
030037 
106405 
144000 


112655 


000446 
124014 
000410 
o2ediad 
004630 


000211 
000012 
125005 
002054 
020052 
030135 KEYTOs 


151004 
000477 TOKEY: 


1979 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 
COPYRIGHT DGC, 
LPeot 


3A CHARACTER HAS COME IN THE TTO LINE. 


SAV 


MOVZR# 
JMP 
AND 
AND 


LDA 
SUBH 


JMP 
LDA 


MoV 
JMP 
LDA 
SUBOR 
JMP 
LDA 
LDA 
SUBOKS 
LDA 
SUB- 
MoV 


SUBOR# 


JMP 
Coma 
JMP 
LDA 
JSR 


HTAB 
12 
MoV 
JMP 
LOA 
LOA 


Mov 
amp 


Q,2- sLOAOD CHARACTER IN ACO 
0,d0.PIN+2 
Ol 7SAVE THE CHARACTER TO SE PRINTED 
2r2 sCLEAR AC2 
2,0SRFL sRESTART TIMER FOR DISCONNECT 
2,0377 : 
2,3 7AC3 = 400 
0,3,SNR s:SKIP IF NO PARITY ERROR 
0,C377 +zERROR CHARACTER RUBOUT 
2,0 ;MASK OUT THE LEFT BYTE 
3,OLLF <3GET THE DOWN LINE LOAD FLAG 
3,3,SZR ;SKIP IF IT IS NOT DOWN LINE 
7LGAD 
0,3 #60 TO DOWN LINE LOAD ROUTINE 
2,3 zAC3 = 177 . 
2,ESFLG ;READ THE FLAG INDICATING THE 
7SAVING OF AN ESCAPE COMMAND 
2,2,SZR 3;SKIP IF NOT AN ESCAPE COMMAND 
@PESC 
3,0 sONLY INTERESTED IN BITS 9-15 
1,3 7MASK OUT BITS 0-8 OF THE CHARACTER 
sORIGINALLY RECEIVED 
2,033 
O0-2,SNR 3SKIP IF NOT STARTING OF AN ESCAPE 
7COMMAND 
1833 
2,PLTFL sAC2 = 0 IF PLOTTING MODE NOT TO 
* $BE SELECTED FOR THIS LINE 
2,2,SZR sSKIP IF NOT UNDER PLOTTING MODE 
KEYTS 7SAVE EVERY CHAR FOR PLOT MODE 
1,C17 sACL=17 
0,1,SNR ¢SKIP IF NOT AN ALT. CHAR, COMMAND 
ESC3 SAVE IT 
1,010 sACL = 10 
2,C13 7AC2 = 13 
0,2-SZR ;SKIP FOR A NEW LINE OR VERTICAL TAB 
2,cis ; 
0,1,SNR SKIP IF A BACK SPACE 
2,0 3A BACK SPACE WILL BE REPLACED BY 
7A RETURN 
0,2,S8NR :SKIP IF NOT A "NEW LINE", "RETURN" 
30R FORM FEED 
LNEND 
1,1,SZR ;SKIP IF IT WAS A HORIZ TAB 
KEYTO 
1,PSFLG :AC1 = POSITION FLAG 
TBCAL sCALCULATE THE NUMBER OF HORIZ POS. 
7TO GE MOVED FOR THE TAB 
1,1,/SNR :SKIP IF SOME MOVEMENT IS DESIRED 
@PRSTR ;RETURN WITHOUT SAVING 
0,C40 
2,DLLSL ;SEE IF DOWN LINE LOADED CHARACTER I3 
7BEING SAVED 
2,2,SZR ;SKIP IF NOT SAVING DOWN LINE LOADED 
ICHARACTERS 
KEYTS 


01 
02 
03 
04 
os 
06 
07 
08 
09 
10 
11 
te 
13 
14 
1s 
16 


PROPRIETARY INFORMATION OF DATA 
COPYRIGHT OGCr 
0032 LP201 


41311 
41312 
41313 
41314 
41315 


Gi3t6b 
41317 
41320 
41321 
41322 
41323 


4i3e4 


41325 
41326 
41327 


41330 
41331 
44332 


41333 
41334 


41335 
41336 
41337 
Gt34o 
aysay 


41342 
91343 
41344 


41345 
81346 
41347 


41350 


41351 
41352 


41353 
41354 
41355 


41356 
44357 


41360 
41361 


41362 


030032 
112415 
002054 
030052 
4112053 


000463 
112414 
000466 
034062 
030123 
175414 


112415 


000647 
125312 
024064 


020124 
123000 
osoiad 


004504 
000465 


123000 
137000 
054124 
004464 
000460 


044103 


KEYTBs 
KEYTUE 


LNENDs 


004461 - 


010062 


000402 
000407 
030156 


020126 


004466 
030155 


020124 
004463 
020124 


024103 
034064 


125005 
101005 


102401 


STFLis 


1979 


LDA 
SUBE 
JMP 
LDA 
ADcOR 


JMP 
SUBR 
JMP 
LDA 
LDA 
Ince 


SUBS 


JMP 
MOVL# 
LOA 


LDA 
ADO 
STA 


JSR 
JMP 


AOD 
ADD 
STA 
JSR 
JMP 


STA 
JSR 
1SzZ 


JMP 
JMP 
LDA 


LDA 


JSR 
LDA 


LDA 
JSR 
LDA 


LDA 
LDA 


MOV 
MOV 


SUB 


2eCi77 
0,2,SNR 
aPRSTR 
2,040 
0-2/SNC 


TBELL 
0,2,SZR 
KEYT2 
3,LINES 
2,LOSPC 
3,3,52R 


0,2¢SNR 


KEYT1 
1/1¢S32C 
1,ECLCT 


0,PSFLG 


STOB 
CLRBSY 


1,0 

1,3 
3,PSFLG 
PUTL 
CLRBSY 


1, TEMP1 
PUT1 
LINES 


st2 
STFL1 
2,CHADR 


O,LNSIZ 


STOB 
2+PSADR 


0,PSFLG 
STOB 
0,PSFLG 


1, TEMP1 
3,E€CLCT 


1,1,SNR 
0,0-SNR 


0,0,SKP 


GENERAL CORPORATION, 


vAC2 = 177 

sSKIP IF THE CHARACTER RECEIVED WAS A 
?RUBOUT RETURN WITHOUT SAVING 

sAC2 = 40 

7SKIP IF THE CHARACTER IS NOT A CONTROL 
sCHARACTER 


7SKIP IF A SPACE 


7GET THE FLAG FOR LEADING SPACES 
7SKIP IF THIS IS THE FIRST LINE BEING 
SAVED 

7SKIP IF LEADING SPACES ARE 

?BEING COLLECTED 


7SKIP IF A LEADING TAB CUMMAND 
s"ECLCT" IS 1 FOR REGULAR & 2 FOR 
sELONGATED CHARACTERS SAVED IN THE 
PRINT BUFFER 


;SAVE THE NEW HORIZONTAL POSITION OF 
sTHE LINE BEING SAVED 
SAVE THE NUMMBER OF LEADING SPACES 


3SAVE THE NEW POSITION FLAG 
37PLACE THE CHARACTER IN FIFO8 


SAVE THE LINE TERMINATOR 
sSTORE THE LINE TERMINATOR 
INCREMENT THE COUNTER FOR THE 
NUMBER OF LINES IN THE BUFFER 
:SKIP IF THIS WAS END OF THE 
VERY FIRST LINE 


;AC2 = BYTE ADDRESS WHERE THE SIZE 
30F THE LINE WILL BE STORED 

7ACQ = NUMBER OF CHAR. IN 

7THE LINE 


7GET THE BYTE ADORESS WHERE THE LINE 
3SIZE INFORMATION IS TO BE SAVED 

7GET THE LINE SIZE 

SAVE IT 

ACO = POSITION OF THE LAST CHARACTER IN 
THE LINE 

#GET THE LINE TERMINATOR 

yAC3 = 1 FOR REGULAR & 2 FOR ELONGATED 
sCHARACTERS BEING SAVED 

SKIP IF IT WAS NOT BACK SPACE 

:SKIP IF THERE ARE SOME SPACES OR 
;CHARACTERS IN THE LINE 


01 


41363 


41364 
41365 


41366 


41367 
41370 
41371 
41372 
4t373 


4374 
41375 


44376 


41377 


41400 


41401 
41402 
G1QQs 
41404 
4440s 
491406 
41407 
41410 


41411 
41412 


Stars 
41414 
41415 


4416 
41417 
41420 
414dei 


PROPRIETARY INFORMATION OF DATA 
COPYRIGHT OGC, 
0033 LP20! 


162400 


o4gted 
004437 


050123 


102400 
040153 
080126 
004432 
050154 


004430 
050155 


004426 


050156 


0004e1 


030407 
034033 
116405 
050061 
002054 
050123 
034124 
010126 


024064 
000724 


125520 
040140 
000463 


026013 
127102 
040151 
002054 


TBELLs 


KEYT2: 
KEYT3$ 
RNBL1S 


ESC3: 


1833: 


1979 
sus 


STA 
JSR 


STA 


Sub 
STA 


CLRBSY: JMP 


3,0 


0,PSFLG 
PUTL 


2-LOSPC 


0,0 
0,ESCMD 
O,LNSIZ 
PUT! 
2,ECMNO 


Pull 
2,PSADR 


PUT1 


2,CHADR 


CLR8SY 


2,RNBLI 
3,C7 
0,3,SNR 
2,/BLCNT 
@PRSTR 
2,LOSPc 
3,PSFLG 
LNSIZ 


“4,€CLcT 


KEYTB+1 


1,1 
0,CMNDS 
ESCP3 
1,3 


GENERAL CORPORATION, 


sDECREMENT BY 1 FOR REGULAR & 2 
3FOR ELONGATED 


sSAVE THE NUMBER OF LEADING SPACES FOR 
3THE NEXT LINE . 

7"LOSPC" HAS THE BYTE ADORESS WHERE THE 
7NQ,. OF LEADING SPACES WILL BE COLLECTED 


#CLEAR THE FLAG COLLECTING ESCAPE COMNDS. 
sRESET THE LINE SIZE COUNTER 

sINIT TRE ESCAPE COMMAND FLAG 

7"ECMND" HAS THE AODRESS OF THE BYTE 
sWHERE ESCAPE COMMAND FLAG WILL BE SET 
sINIT THE LINE SIZE FLAG 

7"PSADR" HAS THE BYTE ADORESS WHERE THE 
?7SIZE OF THE LINE WILL 8E SAVED 

sINIT THE COUNTER FOR THE NUMBER OF 
#PRINTABLE CHARACTERS IN THE LINE 
s"CHADR" HAS THE BYTE ADDRESS WHERE THE 
?NUMBER OF CHARACTERS IN THE LINE WILL 
7BE SAVED 


3GET BELL COUNT 

7GET BELL CODE IN ac3 

7TEST FOR BELL & SKIP IF IT IS BELL 
sRING THE BELL 

sRETURN WITHOUT SAVING 

s00N’T COLLLECT LEADING SPACES ANY MORE 
#GE1 THE CHARACTER POSITION IN THE LINE 
sANY CHARACTER THAT GOT SAVED IN THE 
FOUFFER WILL INCREASE THE LINE SIZE 
sAC% = 1 FOR REGULAR AND 2 IF ELONGATED 
CHARACTER 1S BEING SAVED 


sAC1iS2 
SAVE THE COMMAND RECEIVED 


1,9,PIN+3 


1,1,82C 
0,ESFLG 
@PRSTR 


SKIP IF ESC SWITCH IS SET 


30034 


01 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 


COPYRIGHT DGC, 
LP201 


41422 
41423 
41424 


414625 
414426 
41427 
41430 
4ia34 
41432 


41433 
41434 
41435 
41436 


41437 
41440 
41443 
Gigdea 


41443 


aidag 
4144s 
41446 
41447 
41450 
4145) 
41452 


414535 
41454 


PUT: 


031400 
175401 
030050 PUuT1: 


054066 
015002 
000401 
025001 
035000 
136404 


135400 
055001 
051003 
173001 

STOBs 


054066 
034031 
151202 
163401 


163701 


174000 
025000 
167400 
107000 
045000 
151100 
002066 


QOO13% Ci3is 
000105 C105: 


1979 


#xxSUBROUTINE TO PUT CHARACTER FROM ACO INTO FIFO 
7JSR 1S FOLLOWED SY POINTER TU FIFO CONTROL BLOCK 
7SEE GET FOR FIFO PICTURE 
#LOSES ACO, ACi,AC2,CARRY 


LDA 2,0,3 7AC2 = ADD, OF THE FIFO 

INC 3,3,SKP 

LOA 2,PFIFAR s;ENTER HERE ONLY IF THE BYTE 
sHAS TO BE PLACED IN FIFOB 

STA 3,RETA ;SAVE THE RETURN ADDRESS 

DS2 L0,2 

JMP etl 

LDA “1,L1,2 

LOA 3,MASK+2 

SUB 1,3-SZR ;SKIP IF AC1 HAD BECOME EQUAL TO 
;THE MAXIMUM SIZE OF THE SUFFER 

INC 1,3 

STA 3,Liv2 

LDA 2,BBUF 2 

ADD 3,2,/SKP :AC2 = BYTE ADDRESS 


*kSUBROUTINE STORE BYTE 

3ACO HAS CHAR ON RIGHT PLUS GARBAGE 
7AC2 HAS BYTE ADDRESS 

sLOSES ACL 


sREENTRANT 

STA 3,RETA 

LDA 3,C377 

MOVR 2,2,S82C 

AND 3,0,SKP sRIGHT HALF OF THE WORO IS 


ADDRESSED BY GOD BYTE ADDRESS 
ANOS 3,0,/SKP s:AND THE LEFT HALF BY THE 
sEVEN BYTE ADDRESS 


com 3,3 
LOA 1,072 
AND 3,1 
ADD Q,1 
STA 1,0;2 
MOVL 2r2 
JMP ORETA 
131 

105 


o1 
02 
03 


39 


60° 


PRUPRIETARY INFORMATION OF DATA 
COPYRIGHT OGC, 
10035 LPedol 
054066 ESCHK: 


41455 
41456 


41457 
$1460 
414aol 
41462 


41463 


91464 
91465 
41466 
41467 
41470 


aia7. 
41472 
41473 
41a7a 
Qia75 
41476 
4ia77 
41500 
41501 


41502 
41503 
41504 
41505 


41506 


41507 
41510 
41511 


41512 
41513 
41514 
41515 
81516 


41517 
41520 


415e1 
41522 


41523 
41524 


41525 
41526 


41527 
41530 


o341a4 


175004 
002474 
034052 
os4t23 


002066 


102400 
010105 
000566 
040151 
002464 


04015! 


004763 
O4015t 
044105 
v20051 
004726 
024105 
020153 
107415 


123000 
040153 
034062 
030154 


175404 


004730 
020140 
000627 


125404 
000416 
145440 
125416 
105005 


O44i5t 


030140 


034732 
1720184 


034731 
172005 


004730 
151414 


000611 
000567 


NOMORS 


ESCPIs 


EScPes 


ESCP3s 


ARGMNTS 


1979 


STA 
LDA 


MOV 
JMP 
LDA 
STA 


JMP 


SUB 
18Z 
JMP 
STA 
JMP 


STA 
JSR 
STA 
STA 
LDA 
JSR 
LDA 
LDA 
AND# 


AoD 
STA 
LDA 
LDA 


INC 


JSR 
LOA’ 
JMP 


INC 
aMP 
Inco 
INCH 
MOV 


STA 
LDA 


LDA 
ADC# 


LDA 


ADC - 


JSR 
INCH 


JMP 
JMP 


3,RETA 
3,PSFLG 


3,3,8ZR 
aPCLRB 
3,040 
3,LDSPC 


QRETA 


0,0 
SVEX 
TRIOC 
0,ESFLG 
@PCLRB 


0,ESFLG 
ESCHK 
0,ESFLG 
1,SVEX 
0,C33 
PUT’ 
1,SVEX 
0,ESCMD 
Or i,SNR 


1,0 

0, ESCMD 
3,LINES 
2, ECMNOD 


”3,3,S2R 


STOB 
0,CMNDS 
KEYTS 


1,1,SEZ 
Ole SNR 


1,ESFLG 
2,CMNDS 


3,0131 
3,2,SZ2R 


3,0105 
3,2,SNR 


ESCHK 
22,/3ZR 


KEYTA 
HRTAB+3 


GENERAL CORPORATION, 


3SAVE THE RETURN ADDRESS 

3AC3 = CURRENT POSITION OF THIS LINE 
?IF IT WAS BEING PRINTED 

3SKIP IF STARTING OF THE LINE 


sAC3 = 40 

}PREPARE NOT TO SAVE LEADING SPACES FOR 
sTHIS LINE 

;RETURN 


SKIP IF SAVING THE COMMAND 
7RETURN TO SCAN 


;RETURN TO CLRBSY 


3FOR THESE COMMANDOS TO BE ACCEPTED 
THE PRINTER SHOULD BE AT THE STARTING 
70F A LINE 

ACO = 33 

SAVE THE ESCAPE CODE 


SKIP IF THIS BIT OF THE ESCAPE 
:COMMAND FLAG WAS ALREADY SET 


yAC2 = BYTE ADDRESS WHERE THE THE ESC. 
;COMMANO FLAG WILL BE SET 

;SKIP IF-THIS IS THE FIRST LINE BEING 
2: ASSEMBLED 

SAVE THE BYTE AT ADD. IN AC2 

GET THE COMMAND WORD 


sSKIP IF ARGUMENT IS BEING SAVED 
tARGUMENT BEING EXECUTED 

IF AC2="1 THEN 0 OUT THE CARRY 

sSKIP IF AC2 WAS A ©2 OR =1 

SKIP IF THE COMMAND IS TO BE TERMINATED 
<BY A BYTE OF O AND IT IS NOT A O BYTE 


3GET THE COMMAND FOR WHICH THIS IS 
sTHE ARGUMENT 

sACZ=131 

7SKIP IF IT WAS A COMMAND TO START 
EXECUTING DOWN LINE LOAD PROGRAM 
FAC3=105 

7SKIP IF NOT A VERTICAL TAB COMMAND 
3(IJE. F OR 106) 

3FOR THESE COMMANDS A LINE TERMINATOR 
+SHOULD HAVE BEEN RECEIVED 

SKIP IF COMMAND 1S TO SET HORIZONTAL 
sTAS CILE. E OR 105 


TQ SET THE HORIZONTAL TAB AC1 SHOULD 


01 
02 
03 
04 
os 
06 
07 
08 
09 
10 
1. 
12 
13 
14 
15 
16 
17 
18 
19 
20 
a1 
22 
23 
24 
25 
26 
e7 
26 


41S3t 


41532 
41533 
41534 
41535 
41536 
41537 
41540 
41544 


41542 
41543 


4isdy 
44545 
44546 
41947 
41550 
41551 
41552 
41553 


PRUPRIETARY INFORMATION UF DATA GENERAL CORPORATION, 
COPYRIGHT DGC. 
0036 LP201 


150224 


000553 
030162 
040162 
010152 
002060 
151300 
113000 
034141 


020464 
162005 


000507 
034130 
175004 
000776 
034073 
175004 
000776 
001000 


ARGEX: 


1979 


tHAVE THE HORIZONTAL POSITION AND AC2 
?SHOULD BE =1 


tx*COME HERE WHEN ESCAPE COMMANDS EXEC. ARE FOLLOWED BY 

s ARGUMENTS 

COMZR 2,2,SZR :;SKIP IF THE ARGUMENTS ARE ONLY TWO 
?BYTES LONG 


JMP ESAR1 : 

LDA 2,ARGFL :GET THE LAST ARGUMENT BYTE 

STA O,ARGFL 3SAVE THE PRESENT ARGUMENT BYTE 

1SZ ESFL1 ;SKIP AFTER RECEIVING BOTH THE BYTES 

JMP " OPSCAN 

MOVS 272 

ADD 0,2 7AC2 = ARGUMENT WORD 

LDA 3,CMNDE 3GET THE COMMAND WHICH WAS FOLLOWED BY 
sTHIS ARGUMENT 

LDA 0,C117  =sACO = 317 

ADC 3,0,SNR ;SKIP IF IT WAS NOT A COMMAND TO 
;SELECT DOWN LINE LOADED CHARACTERS 

JMP DLCHR sAC2=ADDRESS OF OLL CHAR SET 

LDA 3,HSTFL - 

MOV 3,3,SZ2R :;WAIT FOR THE STEPPER MOTOR TO STOP 

JMP 72 

LDA 3,VSLEW 

MoV 3,3,SZR s;WALT FOR THE VERTICAL STEPS TO COMPLETE 

JMP one 

SMP Ore 7GO0 TO THE ADDRESS WHERE THE OOWN LINE 


#LOADED PROGRAM STARTS 


$0037 L 


o1 
02 
03 
04 
0s 
06 


41554 
41955 
41556 


41557 


41560 
41561 


41562 
44563 
41564 
41565 
41566 


41567 
41570 


41571 
41572 
41573 


41574 
41575 
41576 
G1577 
41600 


41601 
41602 
41603 


41604 
41605 


41606 
91607 


41610 


41611 
41612 
41613 
41614 
41615 
41616 
41617 


PROPRIETARY INFORMATION OF DATA 


COPYRIGHT DGC, 
P2ot 
041421 PCLRA: 
326021 ESCSvV: 
126440 ESCEX: 


151112 


000732 
044105 


125425 
040140 
176003 
04014) 
175620 ESCLP: 


03043) 
173003 


025360 
125300 
175100 


030032 
143400 
133405 
000665 
142654 


000765 
024416 
137000 


025766 
010105 


025400 
112404 


125300 


150000 
020031 
123400 
117000 
102400 
126520 
001400 


1979 


CLRASY 
ADCZ 
suso 


MOVL# 


SMP 
STA 


INCZ 
STA 
ADC 
STA 
INCZR 


LOA 
Add 


LDA 
MOVS 
MOVE 


LDA 
ANO 
AND 
dMP 
SUBOR# 


JMP 
LDA 
AoD 


LDA 
182 


LDA 
SUB 


MOVS 


COM 
LDA 
AND 
ADD 
SUB 
SUBZL 
JMP 


1,1,SKP 
l,i, 


2r2rS2€ 


ARGMNT 
1,SVEX 


1,1,5NR 
0,CMNDS 
343,SNC 


0,CMNDE 
3,3 


2,CMADR 
342,SNC 


1, (CMADR 
1.1 
343 


2,0177 
2,0 


-1,2,SNR 


NUMOR 
2,0,SZR 


ESCLP 
1,CMAOR 
1,3 
1,0180,3 
SVEX 


1,0181,3 
0,2,S8ZR 


GENERAL CORPORATION, 


sENTER HERE IF SAVING COMMAND 
sENTER HERE IF EXECUTING COMMAND 
+SETS CARRY TO 0, ACi TO 0 

IF BIT 0 OF AC2 IS SET, THEN 
7THE DATA IS AN ARGUMENT 

1BIT O SET 


s"SVEX" WILL BE -1 FOR SAVE & 0 FOR 


TEXECUTE 


SKIP IF COMMAND IS BEING EXECUTED 


;COMMAND IS BEING SAVED 


sAC3=-1, SKIP IF CUMMAND BEING SAVED 


:COMMAND BEING EXECUTED - 
sAC3 WILL BE INCREMENTED EVERY 
sTIME A NEW CONSTANT IS COMPARED 


#TO THE DATA WORD IF THE CARRY = 0, 
7(AC3 IS EVEN) THEN WE ARE CHECKING 


;THE LOW BYTE OF THE CONSTANT 
7GET BASE ADDRESS 

zADD DISPLACEMENT TO BASE 
3SKIP IF CARRY IS NOT EQUAL 0 


3(AC3 ODO) AND DON?T FETCH ANOTHER 


sCONSTANT WORD, ELSE FETCH NEW 
sCONSTANT WORD 


~BASE) 41,2 7FETCH NEW CONSTANT wORD 


BY USING DISPLACEMENT FROM BASE 
SWAP OLD CONSTANT WORD TO 
TEST NEW BYTE 


sRESTORE ACS TO ORIGINAL DISPLACEMENT 


VALUE, 

7GET MASK 

sMASK OUT THE PARITY BIT 
MASK, SKIP IF VALID CONSTANT 
tEND OF LIST, INVALID COMMAND 
SKIP ONLY IF THE COMMAND 
sEQUALS THE BYTE UNDER TEST 
30R THE BYTE UNDER TEST+1, CARRY 
sWILL BE 0 FUR THE FIRST CASE, 
31 FOR THE SECOND 

sNQ MATCH, TRY NEXT CONSTANT 
GET BASE ADDRESS 

sAOD OFFSET TO IT AC3 IS 
+NUMBER OF BYTES TESTED WHEN 
sMATCH OCCURRED 


7LOAD TENTATIVE ADDRESS wORD 


3FROM SAVE TABLE 
SKIP IF SAVING, DON’T SKIP IF 
sEXECUTING 


sEXECUTING, LOAD FROM EXECUTION TABLE 


SKIP IF COMMAND WAS EXACT MATCH, 
sAC2=-t IF NOT EXACT MATCH 
sCOMMAND WAS ACTUALLY ONE HIGHER 


3SO0 SWAP BYTES FOR CORRECT ADDRESS 
sAC2 = -1 FOR EXACT MATCH AND © IF NOT 


3GET MASK 

sMASK OFF HIGH BYTE 

tAODD DISPLACEMENT TO ADDRESS 
7CLEAR ACO FOR USE IN ROUTINES 
+SET ACi TO 1 FOR USE IN ROUTINES 
JUMP TO CORRECT ROUTINE 


PROPRIETARY INFORMATIUN OF DATA GENERAL CORPORATION, 
COPYRIGHT DGC, 
0038 LP201 


41620 


4621 
4i622 
41623 
41628 
41625 
41626 


41627 
41630 
41631 
41632 
41633 
41634 
41635 
41636 
41637 
41640 


4164) 
41642 
41643 
41644 
41645 
41646 
41647 
41650 
41651 
41652 


41653 
41654 


41655 
44656 


41657 
43660 
41661 
41662 
41663 


41664 


41665 
41666 
41667 
41670 


04164% CMADR: 


030465 
036076 
042516 
os4asai 
062143 
000117 


025453 
006415 
005412 
007016 
006020 
065552 
004554 
003407 
005012 
023405 


060541 
062545 
054531 
042104 
014534 
002530 
053532 
053527 
045513 
053514 


050137 
000524 


125120 
044064 


000614 


102t21 
102620 
000607 


050142 


000776 
177766 
000000 


126620 
044151 
034433 
024035 


C117: 


SVTBL: 


BASE: 
EXTBL: 


DLCHR: 
TRIDCS 


ELNSL: 
ELNOS: 


TESPe: 
ZCMND$ 
FCMNDs 
TESP1i: 
PLMUD: 


DISO 
OIS1 


ECMD: 


CLRIB: 


1979 
sAC2=0 FOR EXACT MATCH 
tol IF COMMAND WAS ACTUALLY 1 
sMORE THAN CONSTANT BYTE 
BASE 
61*400+65 
74x400+76 
105*400+116 
1S1*400+141 
14424004143 


117 sLEFT BYTE OF THIS WORD SHOULD BE 0 TO 
: sINDICATE THE END OF COMMANDS 


CHRTAB=.+D1S0) *400+HRTAB@.+D1S0 
(TESP2=.4+DIS0) *400+TESP2~.+DIS0 
CELNDS=.+DIS0) *400+ELNSL~.+0ISC 
(TESP1=.+D1S0) *400+TESP1-.+DIS0 
(FCMND=.+01S0) *G00+ECMD~.+DIS0 

COCMND=,+DIS0)*400+NCMND~.+DISO0 
(ZCMND=,+DISO) *400+PROLL~.+DISO 
(TESP2-.+DIS0) *400+TESP2~.+DIS0 
(PLMOD=.+01S0) *400+PLMUD=.+DISO 
(TOCLR-,+D1S0) *400+TESP2~.+DISO 


CHRZTB=.+DIS1) *400+HRZTB-.+01S1 
(VRTAB=, +0181) *400+VRTAB~.+DIS1 
(ELONG~.+01S1) *400+ELONG=.+DIS1 
(CMPRS=,+01S1) *400+CMPRS=.+DIS1 
CVRCOMD=.+DIS1) *400+TSCAN~.+DIS1 
(DLCHR~,+DIS1) *400+PRARG=.+DIS1 
(PRARG~.+D1S1) *400+TSCAN=.+01S1 
(SCORE=,+DIS1) *400+SCORE~.+#DIS1 
(PLUT~.+DIS1)*400+PLOT~.+D1S1 

(TSCAN~. +0151) *400+MRST=.+DISt 


STA 2,DLFLG sSET/RESET FLAG TO SELECT DOWN LINE 
?LOADED CHARACTER SET 
JMP RTOCO 
MOVZL 1,1 sACL = 2 
STA L,ECLCT 3SET ECLCT TO i IF SELECTING 
sELONGATED, 2 IF DESELECTING 
JMP EScP2 7G0 TO ESCPe 
ADC2L 0,0,SKP sACOS~2 
SUBZR 0,0 7AC0=100000 
JMP ESCP1 : 
STA 2,PLTFL ;SET PLTFL TO O IF IT HAS TO BE 
:DISABLED AND ~1 IF ENABLED 
JMP TESP1 
SVTBL~BASE YDEFINE SAVE TABLE DISPLACEMENT CONSTANT 
EXTBL~BASE sDEFINE EXECUTE TABLE DISPLACEMENT 
sCONSTANT 
SUBZR 1yt 
STA 1,ESFLG ;DEPOSIT A 100000 IN "ESFLG" 
LDA 3,PHTAB 
LDA 1,Cle sACi = 12 


a1 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 


41671 
41672 


41673 
41674 
41675 


41676 
41677 
41700 
41701 
41702 
G1703 
41704 


41705 
81706 
41707 
91710 
Ai7ii 
41712 
41713 


Gi7i4 


41715 
41716 
i717 
41720 
41721 
41722 
41723 


PROPRIETARY INFORMATION OF DATA 
COPYRIGHT DGC, 
0039 LP201 


106005 
002662 


041400 
175400 
000774 


034415 
030033 
044400 
175400 
112044 
000775 
102621 


105005 
000472 
"125400 
020125 
006412 
002060 
000202 


040151 


02gi24 
125400 
020007 
004547 
002633 
000211 
042067 


Oedtea2 


102460 
125404 


000451 
034033 
060277 
030134 


173402 


172000 
034032 


157400. 


054134 


030043 
173000 
041000 
034046 
137000 


VRCMDs 


ESARL: 


VRTBBSs 


PVTABs 


HRTAB: 


TOCLRs 
PHTABS 
TTAB: 


ALTNTS 


STOT3: 


1979 


ADC 
JMP 


STA 
INC 
JMP 


LOA 
LDA 
STA 
Inc 
ADCO 
IMP 
SUBZR 


MOV 
JMP 
INC 
LOA 
JSR 
JMP 
VTAB 


STA 


LDA 
Inc 
LOA 
JSR 
JMP 
HTAB 
TAG 


0,1,SNR 
@PCLRB 


0,043 
3,3 
4 


3,PVTAB 


072,SZR 
3 
0,0,SKP 


0,1,/SNR 
RTOcD 
1,1 
0,LNCNT 
@1TAB 
@PSCAN 


0,ESFLG 


1,PSFLG 
1,1 
0,D0132 
TAB 
@PCLRB 


GENERAL CORPORATION, 


RETURN AFTER CLEARING ALL OF THE 
sHORIZONTAL TAB BUFFER 


7AC3 = POINTER TO VERTICAL TAB BUFFER, 
sAC2=7 


sCLEAR 
sOECREMENT & SKIP WHEN OVER 


sPREPARE TO RECEIVE OTHER ARGUMENTS BY 
sDEPOSITING A 100000 IN "“ESFLi" 
s;SKIP IF THE BYTE RECEIVED IS NOT 0 


7ADD 1 TO TAB SET 
7ACO = NUMBER OF LINES IN THE FURMS 
7GO TO JSR TAB STATEMENT 


30 OUT THE "ESFLG" TO INDICATE THE END 
30F ESCAPE COMMAND ~ SEQUENCE 
7GET THE FLAG FOR THE CURRENT POSITION 


3ACO = 132. 


sENTER WITH THE CARRY A 0 TO SELECT THE ALTERNATE 
sMODE AND 1 TO DESELECT IT 


LDA 


SuBc 
INC 


JMP 
LDA 
INTDS 
LDA 


AND 


Adc 
LDA 
AND 
STA 
ouT . 
LDA 
ADD 
STA 
LDA 
AOD 


1,AL TMD 


AC] = ©] IF THE ALTERNATE MODE JUMPER 
+IS IN 0 OTHERWISE 


0,0 tACO = 0 & CARRY UNCHANGED 

1,1,SZR sSKIP IF THE JUMPER IS IN AFTER 
sCOMPLEMENTING THE CARRY 

RTOCOD 

3,07 sACS3 = 7 

2,OT3FL ;READ THE LAST OUT3 COMMAND THAT WAS 
ISSUED 

3,2/SZ2C ;MASK QUT THE APPROPRIATE BIT & SKIP 
IF THE MODE HAS TO BE DESELECTED 

32 

3,Ci77) 3AC3 = 177 

203 

3,0T3FL 

3,32 

2¢ ePOUT+3 

3,2 

00,2 

3, -POUT+6 

1,3 sIF PRINT MODE WAS CHANGED FROM REGULAR 


#70 COMPRESS OR VICE VERSA THEN CLEAR 
sPRINT AND START CHARACTER INTERRUUPTS 


PROPRIETARY ENFORMATIUN OF DATA 


COPYREGHT OGC,. 


0040 LPe20t 


01 
02 
03 
o4 
os 
06 
O7 
08 
09 


4174s 
41746 
41747 
41750 
41751 
41752 
41753 
41754 
41755 


41756 
41757 
41760 
Gi761 
41762 


41763 
41764 


41765 
41766 
41767 
41770 
41771 
41772 
41773 
Qi774 


41775 
41776 
Q1777 


42000 
42001 


42002 
42003 
92004 
42005 
42006 
42007 
42010 
42011 


42012 
42013 
42014 
42015 
$2016 
42017 
42020 
42021 


G2022 


v81400 
060177 
o004s1 
O24ial 
125404 
000426 
034117 
175200 
151200 


175100 
054117 
034037 
125540 
151200 


000746 
OSsoLaa 


000413 
152400 
176540 
054064 
126000 
002401 
040031 
OS016! 


000403 
102121 
050146 


040152 
002060 


024101 
020007 
004463 
002060 
000211 
040152 
024074 
034073 


167000 
050105 
030075 
073401 
030105 
000670 
102120 
050135 


000635 


CMPRS: 


PLOT: 


MRSTs 


MRST1is 
ELONGs 


PRARGS 
SCORES 


RTDCD: 
TSCAN? 


HRZTBs 


THTABS 
VRTABS 


NCMNDs 
OCMND=s 


1979 


STA 
INTEN 
JMP 
LDA 
INC 
JMP 
LDA 
MOVR 
MOVR 


MOVL 
STA 
LOA 
INCOL 
MOVR 


SMP 
STA 


JMP 
Sus 
SUBOL 
STA 
ADC 
SMP 
MRST2 
STA 


JMP 
ADcZ2L 
STA 


STA 
gMP 


LDA 
LDA 
JSR 
JMP 
HTAB 
STA 
LDA 
LDA 


ADO 
STA 
LDA 
OIv 
LOA 
JMP 
Apc2t 
STA 


JMP 


0,0,3 


RTOCD 
1,CMPMD 
1,1,S2R 
RTOCco 
3,PRTYP 
3,3 

2,2 


3,3 


“ 3,PRTYP 


3,015 
trl 
are 


STOTS 
2,PLTSL 


” RTDCD 


202 

3,3 
3,ECLCT 
{yl 
QMRSTI 


2,ELNEN 
RTOCD 

0+0,SKP 
2,SCRFL 


O,ESFLI 
@PSCAN 


1,HPOS 
0,0132 
TAB 

OPSCAN 


0, ESFLI 
1,VPOS 
3,VSLEW 


3,1 
2,SVEX 
2/VRSTP 


2,SVEX 
VRTBB 
0,0 
2,OLLSL 


TESPe 


GENERAL CORPORATIUN, 


7AC1 =~1 IF JUMPER IS IN 
7SKIP IF JUMPER IS IN 
sSUMPER NOT IN RETURN 

7GET THE FLAG FOR PRINT TYPE 


#LOAD CARRY WITH 1 IF COMPRESS MODE 
sHAS TO BE SELECTED & 0 IF NUT 


7AC1l = 3 
sCARRY=1 IF COMPRESS MODE HAS 
TO BE SELECTED & 0 IF NOT 


7"PLTSL" WILL BE O IF THE PLOTTING 
sMODE HAS TU BE DESELECTED AND =1 


:IF IT HAS TO BE SELECTED 


sCLEAR AC2 
sMAKE AC3 = 1 


tMAKE ACL el 


s"ELNEN" WILL BE 0 IF ELONGATED MODE HAS 
3TO BE DISABLED AND 1 OTHERWISE 


sPREPARE TO RECEIVE 2 BYTES OF ARGUMENT 
sBY OEPOSITING A =2 IN "ESFL1" 

*"SCRFL" WILL BE 0 IF UNDER SCORE 

tHAS TO BE DISABLED AND ~1 TO ENABLE 
END OF ESCAPE COMMAND SEQUENCE 


tGET THE HORIZONTAL POSITION OF THE HEAD 
7ACO = 132. 


sCLEAR THE ESCAPE FLAG 

GET THE CURRENT VERTICAL POSITION 

7GET THE NUMBER OF VERTICAL STEPS LEFT 
7TQ BE TAKEN 

VERTICAL POSITION WHERE TAB WILL BE SET 
TEMPORARILY SAVE AC2 

3GET THE NO. OF VERTICAL STEPS PER LINE 
vACL = LINE POSTION 

sRESTORE AC2 

sSET/CLEAR VERTICAL TAB 


sDLLSL WILL BE 0 FOR DESELECT 
7AND NON 0 FOR SELECT 


10041 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 
COPYRIGHT OGC, 


42023 
42024 
42025 
42026 
42027 
42030 
42031 
42032 
42033 
42034 
42035 
42036 
42037 
42040 
42041 
42042 
42043 
42044 
42045 
42046 
42047 
42050 
42051 
42052 
42053 
42054 
42055 
42056 
42057 
42060 
42061 
42062 
42063 


42064 
42065 


42066 


LP201 


PRDLL= 
040151 
004440 
101300 
040077 
004435 
034077 
163000 
040077 
004431 
040076 
004427 
034076 
175300 
117000 
054076 
176400 


‘054100 


004420 TROUT: 
024100 
107000 
044100 
030076 
006415 TRUMP: 
010076 
000401 
014077 
000767 
004406 
034031 
030100 
143000 
117404 
002003 
GETCH: 
054132 
000634 


041437 PSTOB: 


1979 

tPROCESS DOWN-LINE=LOAD 

STA O,ESFLG ;RESET ESCAPE COMMAND FLAG 
JSR GETCH 

MOVS 0,0 

STA 0,OLLB 

JSR GETCH 

LDA 3,OLL8 GET THE LAST BYTE 

ADD 3,0 

STA 0,OLL8 sSTORE THE BYTE COUNT 

JSR GETCH : 

STA 0,OLLA 

JSR GETCH 

LDA 3,O0LLA : 
MOVS 3,3 

ADD 0,3 

STA 3,DLLA ;STORE THE BYTE ADDRESS. 
SUB 3,3 

STA 3,OLLC 3INETIALIZE THE CHECK SUM 
JSR GETCH 

LOA 1,0LLC 

ADD Ort 

STA 1,OLLC ;UPOATE THE CHECK-SUM 
LDA 2,OLLA 3GET THE BYTE ADDRESS 
JSR @PSTOB ;STORE THE’ BYTE 

132 OLLA 

JMP oti 

osz OLLB 

IMP TROUT 

JSR GETCH sGET CHECK SUM 

LDA 3,0377 

LDA 2,O0LLC 

ADD 2,0 

AND “0,3,/SZR sSKIP IF CHECK SUM IS OK 
JMP OPFALT 3GO TO ERROR STATUS 


sGET THE NEXT OLL CHARACTER OR EXIT IF AC3 IS 0 
STA- 3, OLLF 
JMP > = -TOCLR sCLEAR BUSY FLAG 


STOB 


$0042 LP201 


42067 
42070 
42071 
42072 


42073 
42074 
42075 


42076 
42077 
42100 


42101 
42102 
42103 
42104 
42105 
42106 
42107 


42110 
421i 
4aii2 
42113 


122452 
001400 
150000 
050162 


102400 
030050 
073101 


054066 
035401 
137000 


126400 
152121 
151140 
122043 
000776 
021400 
145400 


010162 
142000 
041400 
002066 


TABS 


1979 


ENTER 
eACL & 
tAC2 = 
7AC3 = 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 
COPYRIGHT DGC, 


WITH ACO = LAST TAB POSITION POSSIBLE 
POSITION WHERE THE TAB IS NEEDED 

v1 TO SET THE TAB AND 0 TU CLEAR IT 

RETURN ADDRESS AND RETURN +1 CONTAINING THE 


sAQDDRESS IN PAGE 0 WHERE THE TAB BUFFER STARTS 


SUBO# 
JMP 
COM 
STA 


SUB 
LDA 
OIV 


STA 
LDA 
ADO 


SUB 
Aoc2L 
MOVOL 
AOCO 
JMP 
LDA 
AND 


ISZ 
ADC 
STA 
JMP 


1,0,SZC :SKIP IF THE TAB IS WITHIN THE RANGE 

0,3 

22 

2,ARGFL y"ARGFL" WILL BE 0 IF THE TAB HAS TO 
37BE SET AND -1 LF IT HAS TO BE CLEARED 

0,0 


“2,020 7AC2 = 20 


#RETURN WITH ACO = REMAINDER AND AC1 
HAVING QUOTIENT 
3,RETA ;SAVE THE RETURN ADDRESS 


3,1,3 

1,3 #AC3 = ADDRESS OF THE WORD WHICH HAS THE 
1TAB BIT IN IT 

1,1 3AC1 = 0 

2,2,SKP 3AC2 = w2 

2,2 : 

1,0,SNC ;SKIP WHEN IT IS OVER 

ere 

0,0,3 *READ THE WORD WITH THE TAB BIT IN IT 

2,0 . #MASKOUT THE BIT WHICH REPRESENTS THE 


POSITION WHERE THE TAB HAS TO BE SET 
70R CLEARED 
ARGFL #SKIP IF THE TAB WAS TO BE CLEARED 
2,0 +SET THE BIT 
0,0,3 
@DRETA 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 
COPYRIGHT DGC, 


$0043 LP201 

o1 

02 

03 42114 024130 
oa 

05 42115 125005 
06 

07 42116 000541 
08 

09 42117 030005 
10 92120 147445 
11 42121 176120 
12 42122 020134 
13 

14 82123 113414 
1S 42124 000524 
16 42125 143000 
17 42126 030117 
18 

19 

20 

21 42127 026011 
22 42130 125100 


23 42131 024034. 


24 4232 151212 
25 42133 024037 
. 26 42134 030101 
27 42135 172002 
28 

29 

30 

31 42136 166041 
32 

33 42137 174400 
34 

35 42140 146476 
36 

37 

38 42141 131000 
39 aide 151113 
40 

41 42143 050101. 
42 4atda 152400 
43 42145 050167 


46 82146 050111 


48 42147 024102 
49 92150 146043 
50 42151 044102 
Si 42152 125604 


53 42153 000475 
54 421540 044166 
S55 42155 000416 


CHRST®: 


1979 


s#xA CHARACTER START INTERRUPT WILL BRING THE 
sPROGRAM CONTROL TO THIS ROUTINE 


LOA 1,HSTFL sGET THE HORIZONTAL COMMAND THAT WAS 
sISSUED TO REACH THIS STEP 

MoV 1s1,SNR SKIP IF A COMMAND TO TAKE HORIZONAL 
3STEPS WAS ISSUED 

JMP HNOMV 3I1F NOT THEN IT MUST BE A MOVEMENT 
7BY HAND 

LDA 2,c4 rAC2 = 4 

ANDO 2/1,SNR 3;SKIP IF MOVING TO THE LEFT 

ADC2L 3,3 37AC3 = -2 

LDA 0,OT3FL 3:GET THE LAST OUT 3 COMMAND THAT 


#WAS ISSUED 
AND#& 0,2,SZR 3SKIP IF PRINT WAS DISABLED 


JMP RSTOR sOTHERWISE RETURN 
ADD 2,0 sSET BIT 13 
LDA 2,PRTYP ;GET THE PRINT TYPE. 0 FOR REG. 


sB1T 15 WILL BE 1 FOR COMP. & BIT 
370 WILL BE SET FOR ELONGATED 


IN 1,1 

LDA 1,9.PIN+1 
MOVL 1,1 #LOAD CARRY WITH HOME FLAG 
LDA 1,C10 


MOVR#  2,2,SZC ;SKIP IF NOT IN THE COMP. PRINT MODE 

LOA 1,/C15 | 

LOA 2,HPOS’ 3GET THE HORIZONTAL POSITION 

ADC 3,2,SZ2C +AC3 1S -2 FOR MOVEMENT TO RIGHT 
tAND 0 FOR MOTION TO LEFT 
+SKIP IF IN HOME AND MOVING TO RIGHT 
3OR IF NOT IN HOME AND MOVING TO LEFT 

ADCO 3e1,/SKP sINC. IF MOVING TO RIGHT & DEC. IF 

; #MOVING TO LEFT 

NEG 3,3 ¢RESTORE THE CARRY TO WHAT IT WAS 
#BEFORE AC2 WAS CHANGED 

subcH 2,1,SEZ ;SKIP IF INSIDE HOME AND 

. 7AC1 > QR = AC2s OR IF NOT IN HOME 

sAND ACL < OR = AC2 


MOVLA 2,2,SNC ;SKIP IF THE HORIZONTAL POSITION WILL 
sBECOME NEGATIVE 


STA 2,HPOS SAVE THE NEW HORIZONTAL POS. 
Su8 2,72. 
STA’ 2eHRCNT s;CLEAR THE FLAG KEEPING TRACK OF HOW 
’ tMANY REAL TIME CLOCK INTERRUPTS RE- 
sCEIVED SINCE THE LAST START CHARACTER 
STA 2,PRNTIN sREwINITIALIZE THE PRINT 


PINTERRUPT FLAG 
LDA 1,HSLEW 
ADCO 2,1,SNC ;SKIP IF NOT A HORIZ,. SLEW 
STA 1,HSLEW 
INCR 1,1,SZR ;SKIP IF NOT HORIZ. SLEW OR HORIZ. 
SLEW IS OVER 


SMP. RSTOR 
STA 1,HTBFL 30 OUT THE FLAG 
JMP PRTST 


01 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 
CUPYRIGHT UGC, 
30044 LP20! 


42156 
42157 
42160 
82161 
42162 
42163 
42164 
42165 
42166 
42167 
42170 
42at71 
42172 
42173 


42174 
42175 
42176 
42177 


$2200 
42208 


42202 
42203 
42204 


42205 
42206 
42207 


42210 
42211 
42212 


42213 
Geeta 
42215 
42216 
Geer7 
42220 
42221 


42222 


42223 
42224 
42285 
42226 
42227 
42230 
42231 


O101i1 
Oe4131 
125005 
000417 
O14i3t 
00046S 
065077 
102400 
040157 
006055 
020036 
034134 
163400 
040134 


034043 
117000 
041400 
o004si 


020143 
£14005 


000516 
034113 
175415 


034006 
030037 
020114 


142453 
O350111 
156442 


010116 
122002 


PRINTS 


PRET: 


PRIST: 


PRNT1s 


000433 - 


040114 
004451 
101202 
121100 


161002 
004454 


100000 


117400 
116000 
161200 
124102 
151200 


1979 


}**ROUTINE TO PRINT DOTS ON THE PRINTER 


Isz . PRNTIN  sUPDATE THE PRINT INTERRUPT COUNTER 
LDA i,STPFL ;SEE IF STOP FLAG IS SET 
MOV 1,1,SNR ;SKIP IF IT IS SET 
JMP PRNT1 
082 STPFL 7SKIP WHEN "STPFL" = 0 
JMP RSTOR 
RTCDS sDISABLE THE REAL TIME CLOCK INT. 
SUB 0,0 
STA , 0, DSRFL : 
JSR @PSTOP ;STOP THE HORIZONTAL MOTOR 
LDA O0,C13 ACO = 13 
LOA 3,O0T3FL 
AND 3,0 MASK OUT BIT 13 
STA 0,OT3FL ;SAVE THE NEW OUT3 COMMAND 
OUT 0,33 
LDA 3, -POUT+3 
ADD 0,3 
STA 0,0,3 
SMP RSTOR 
LOA 0,PSPFL ;READ THE SWITCH TO SEE IF THE 
#PLOTTING MODE IS SELECTED 
com 0,3,SNR ;SKIP IF IT IS NOT SELECTED WITH 
zACO = ~1 
JMP PLOT! 
LDA 3/PROIR 3GET THE PRINT OIRECTION 
INCH 3,3,SNR ;SKIP IF PRINTING LEFT TO RIGHT 
gAC3 = 1 
LDA 3,¢5 rACZ = 5 
LDA 2,015 yAC2 = 15 
LDA 0,PRCNT GET THE NUMBER OF COLUMNS LEFT TO 


?BE PRINTED 

SUBOS 2,0,SNC sSKIP IF NOT ELONGATED MODE PRINTING 

LDA 2,PRNTIN GET PRINT INTERRUPT COUNTER 

sus0 2,3,SZ2C :SKIP IF ELONGATED PRINT MODE & 5 OR 
LESS PRINT INTERRUPTS HAVE BEEN 
RECEIVED WHILE PRINTING RIGHT TO LEFT OR 
tONLY ONE INTERRUPT HAS BEEN RECEIVED 
sVIHILE PRINTING LEFT TO RIGHT 
sALSO SKIP IF ERRONEQUS PRINT INTERRUPT 


18Z PRSKP sSKIP IF PRINT SKIP FLAG IS 1 

ADC 1,0,SZC :OECREMENT BUT DON’T MAKE IT NEGATIVE 

JMP RSTOR 

STA 0,PRCNT 

JSR MTRIX sREAD THE CHARACTER MATRIX 

MOVR 0,0,8ZC sSKIP IF IT WAS AN OOD PRINT INTERRUPT 

MOVL 1,0 LOAD CARRY WITH A 1 IF ELONGATEO 
sPRINT MODE IS ENABLED 

MOV 3,0,SZC 3SKIP IF NOT ELONG. PRINT MODE OR 
IF IT IS ODD PRINT COLUMN 

JSR MTRXL 

coM 0,0 

AND 0,3 

Abc 0,3 OR ACO AND AC3 

MOVR 3,0 


COML 1,1,/8ZC sSKIP IF ELONGATED PRINT MODE 
MOVR 22 


01 
02 
03 
04 
0s 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 


s9, 


60 


42232 
42233 


42234 
42235 
42236 
42237 


4224u 
dae. 
42242 
422435 
4e24a 


42245 
42246 
42247 
42250 


42251 
42252 
42253 
42a5a 


42255 
42256 


42257 
42260 
42261 
62262 
42263 
42264 
42265 


42266 
42267 


42270 
42271 
42e72 


42273 
42274 
42275 
42276 
42277 
42300 
42301 
42302 
42303 
42304 


92305 


PROPRIETARY INFORMATION OF DATA 
COPYRIGHT OGC, 
0045 LPeot 


024147 
125066 


115140 
020114 
030461 
157400 


030044 
173000 
041000 
034035 
O24aitt 


166404 
101005 
000721 
152400 


060277 
061201 
060001 
191404 


060177 
062601 


0350101 
150000 
020144 
101004 
0007085 
020168 
101005 


050127 
000701 


030117 
151102 
101212 


024113 
030115 
127000 
044115 
054067 
024112 
127120 
125120 
133000 
024136 


134425 


PLOTe2: 


RSTUR: 


RSTRI: 


HNOMVs 


MTRIX$ 


MTRXIS 


1979 
LDA 


MOVC 


MOVOL 
LOA 
LDA 
ANO 
Our 
LDA 
Add 
STA 
LOA 
LDA 


SUB 
MOV 
JMP 
SUB 


INTDS 
MF SP 
MTFP 
Inc 


INTEN 
RET 


LDA 
coM 
LDA 
MOV 
IMP 
LDA. 
MOV 


STA 
JMP 


LDA 
MOVL 
MOVRA 


LOA 
LDA 
ADD 
STA 
STA 


* LDA 


ADDZL 
MOVZL 
ADD 
LDA 


NEGZ 


1,SCOR 


1,4,SEZ 


0r3 
0,PRCNT 
2,€777 
2.3 
3,42 

2, ePOUT+ 
3,2 
00-2 
3,Cle 
1,PRNTIN 


341/S3ZR 
0,0,SNR 
PRET 
2,2 


2,2,S2R 


2,HPOS 
272 


-O,/PLTSL 


0,0,S82R 
PRET 

0,DELAY 
0,0,SNR 


2,HRTER 
PRET 


2ePRTYP 


202,820 
0,0,SzC 
‘ 


1,PRDIR 
2,PRADR 
at 


1,DLADR 


1,3,SNR 


GENERAL CORPORATION, 


sACi WILL BE NON O IF UNDER SCORE IS 
sENABLED 

sO0ON’T SKIP IF UNDER SCORE IS ENABLED & 
IT WAS OOD PRINT POSIOTION (UNLESS 
sELONGATED PRINT MODE) 


7AC2 = 777 

FPRINT 

4 

3A3 = 12 
3GET THE COUNT OF PRINT 
7 INTERRUPTS 


tSKIP IF PRINT COUNT IS NOT 0 


sANY TIME AN ENTRY 1S MADE TO THIS 
sPOINT THE INTERRUPTS WILL BE ENABLED 


sSKIP IF INTERRUPTS ARE NOT TO 
2:86 ENABLED 


7GET STATUS OF PLOTTING MODE 
7SKIP IF NOT IN PLOTTING MODE 
DON'T SET ERROR FLAG FOR START CHAR 


7SKIP IF DELAY AFTER A STOP COMMAND IS 
sNOT OVER 
7SAVE THE CURRENT HOR. POSITION 


SKIP IF NOT ELONG. PRINT 

IF ELONGATED PRINT IS ENABLED AND 
7IT IS ODD PRINT COUNT THEN LEAVE 
sAC1 TO AO 

+GET THE PRINT DIRECTION 

7GET THE COLUMN ADDRESS 


sUPDATE THE COLUMN ADDRESS 

7SAVE THE RETURN ADDRESS 

7GET THE CHARACTER TO BE PRINTED 
*SHIFT LEFT BY 2 PLACES 


sAC1 = STARTING ADDRESS JUST IN CASE 
7DOWN LINE LOADED CHARACTER SET IS 
tBEING USED, IT WILL BE O IF CHAR, 
GEN. IS BEING USED 

SKIP IF USING DOWN LINE LOADED 
CHARACTER SET WITH THE CARRY = 0 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 
COPYRIGHT UGC, 
0046 LP201 


42306 
42307 


42310 


423it 
42312 
42313 
42314 
42315 
42316 


42317 


42320 
42321 


42322 


024047 
133002 


041000 


036010 
125003 
035000 
030115 
024117 
002067 


000777 


054114 
034112 


000714 


C777: 


PLOT!: 


1979 


LDA 
ADD 


STA 
IN 

LDA 
MOV 
LDA 
LDA 
LDA 
JMP 


177 


STA 
LDA 


JMP 


1, POUT+7 
ie2,SZ2C :SKIP IF USING DOWN LINE LOADED 
?CHARACTER SET 


0,0,2 

3,0 +READ THE CHAR. GEN. 

3,0,PIN+O 

1,i,-SNC :SKIP IF CHAR. GEN. IS BEING USED 

3,02 

2,PRADR 

1,PRTYP 

ORETS 

3,PRCNT :CLEAR PRINT COUNT 

3,PRCHR :BYTE RECEIVED WILL BE THE BYTE SENT 
:TO THE HAMMERS 

PLOT2 


$0047 


OL 
02 
03 
4 
05 
06 
07 
08 
09 
10 
11 
le 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 
COPYRIGHT DGC, 


42323 
42324 
42325 
42326 


42327 
42330 


42331 
42332 


42333 
42334 
42335 
42336 
42337 
42340 


“2341 


42342 
4asa3 
4235a4 
42305 
423546 


H2507 


42350 
42351 


42352 


42353 
42354 
42355 
42356 


42357 


42360 
42361 


42362 
42363 
42364 
42365 
42366 
42367 


92370 
42371 
42372 
42373 
42374 


LP201 


VRSTJs 


060277 
062401 
040073 
040070 


176401 
014073 TICK: 


000402 
000420 


054071 
020072 
024053 


“034050 


101120 
106053 
163000 
123400 
040072 
010074 
000401 
020130 


026016 
006055. 


°000677 


VRCHK = 
024070 


166244 
006003 
034742 
os407i 


oud67i 

VRINTS 
020071 
101224 


000666 
020073 
162040 
024070 
166026 
044070 


032013 
151103 


006402 


000655 
040336 PFBY: 


1979 


se*ROUTINE TO TAKE VERTICAL STEPS UNDER TIME 
sCONTROL. ENTER AT VRSTJ WITH A JSR ANO AT 
3TICK AFTER A TIMED INTERRUPT. 


INTOS 

SAV 

STA 0,VSLEW 

STA O,VRTIN s INIT. THE NUMBER OF VERTICAL INTERRUPTS 
EXPECTED 

sus 3,3,3KP 

DSZ VSLEW 7SKIP AFTER TAKING ALL THE VERTICAL 
STEPS 

uMP «t2 

JMP VRCHK #MAKE SURE THAT THE VERTICAL MOTOR 
7IS MOVING 

STA 3,VRTWT 3ZERO OUT THE VERTICAL WAIT 

LOA O,VRTFL 3GET THE VERTICAL STEP ISSUED LAST 

LOA 1,C60 zAC1 = 60 

LDA 3,020 sAC3 = 20 

MOVZL 0,0" 

ADCcO# O,1,SNC sSKIP IF BIT 9 OF ACO IS SET 

ADO 3,0 

AND 1,0 7ACO HAS THE NEXT STEP 

STA O,VRTFL 3SAVE THE VERTICAL STEP FLAG 

1s2 vPOS , 

JMP etl 

LDA Q,HSTFL ;ACO = HORIZONTAL STEP COMMAND 

IN 1,6 3START THE CLOCK 

LOA 1,0,PIN+6 

JSR @APSTOP <;ISSUE AN OUT 5 

JMP RSTOR 

s**ROUTINE TO VARIFY THAT THE VERTICAL MOTOR 

71S MOVING 

LDA “1,VRTIN :GET THE NUMBER OF VERTICAL INTS. 
sNOT RECEIVED 

ADCOR 3,1,SZR ;SKIP IF UPTO 2 INT. NOT RECEIVED 

JSR. OPFALT ;3GU TO ERROR STATUS 

LDA 3,0777 

STA 3,VRTWT sIGNORE THE VERTICAL STEPS TO BE 

ke sRECEIVED AFTER ALL THE VERT. STEPS 

sHAVE BEEN TAKEN FUR 100 MSEC. 

JMP RSTOR i 


se*ROUTINE TO SERVICE VERTICAL INTERRUPT 
LDA O,VRTWT 


MOVZR 0,0,S2R ;SKIP IF A VERTICAL INTERRUPT WAS 
s EXPECTED 

IMP RSTOR 

LDA 0, VSLEW 

Agco 3,0 sSKIP IF "VSLEW" WAS NOT 0 


LOA 1,VRTIN :GET THE COUNTER FOR VERT. INT. 
3,1,SEZ ;0EC. BUT DON’T MAKE IT 0 
STA 1,VRTIN 
IN 2,3 
LDA = 2,0.PIN+3 


MOVL 2,2,SNC ;CHECK STATUS GF FORMS 
JSR @PFBY 70UT OF FORMS GO SET BUSY 
JMP RSTOR 

HDINT 


10048 LPe01 


o1 
02 


42375 
42376 
42377 
42400 
42401 


42402 
42403 
42aoq 
8240s 
42406 
42407 
42410 
42qiy 


424ie 
4aais 


B2uig 
42415 
42416 
424017 
42420 


242i 
42422 
42hes 
Beueag 
42425 
42426 
42427 


054067 
034000 
062401 
020067 
041777 


022011 
100000 
030032 
143400 
030413 
126521 
125120 
151400 


101203 
000775 


0354046 
137000 
041400 
176400 
003000 


0424a1 
042114 
042156 
042330 
041215 
042360 
042677 


INTS: 


INTSR? 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 


COPYRIGHT DGC, 1979 


tINTERUPT SERVICE 

sSEVEN POSSIBILITIES: 
sCHARACTER START INTERRUPT 
SPRINT INTERRUPT 

RTC (VERTICAL POSITION INT.) 
s KEYBOARD 

#VERTICAL INTERRUPT 

*SELF TEST 


STA 3,RETS SAVE AC3 
LDA 3,0 
SAV sSAVE THE WORLD 
LDA “0,RETS 
STA O,-le3 SAVE AC3 ON THE STACK 
IN Ori 
LDA Ord PIN+1 
com 0,0 
LDA 2,C0177 
AND “2,0 7SKIP IF A VALIO INTERRUPT 
LOA 2eINTSR 
SUBZL Vel,SKP ;AC1 = 1 
MOVZL 1,1 : 
INC . 2.2 zAC2 IS POINTING TO THE ADD, OF THE 
7 INTERRUPT SERVICE ROUTINE 
MOVR 0,O0,SNC ;SKIP IF THIS IS THE INT. 
JMP «73 
OuT 1,6,3 ?RESET ThE INTERRUPT 
LDA 3, «POUT+6 
ADD 1,3 
STA 070-3 
SuB 3,3 
JMP 2072 
. 
CHRST 
PRINT 
TICK 
KYBRD 
VRINT 
SLFTS 


01 


PROPRIETARY INFOR IATION OF DATA GENERAL CORPURATION, 
COPYRIGHT DGC, 
10049 LP20!1 


42430 
42431 


42ase 


42433 
4eaza 


42435 
82836 
824037 
42440 
a2gay 
G2aue2 
82443 
a2aqu 
a2uas 
42446 
42447 
42450 
424s 
42452 
42453 
42asa 
42455 
42456 


42457 
42460 


42461 
S2d62 


42463 
4auoq 
42465 
42466 
42467 
42470 
4ea7y 
42472 
42473 
“aa7a 


92475 
42476 
42477 
42500 
42501 
42502 
42503 
42504 
4250S 
42506 
42507 
42510 


92511 


60 ‘42512 


* OFLNOS 


020033 
117000 


062401 


022017 
101212 


024053 
044163 
024075 
101102 
044074 
osolai 
050122 


103122 


0%4121 
103112 
014122 
030006 
105300 
101200 
147634 
151401 
030034 
050075 


123500 
126560 


044117 
125120 


030034 
103122 
147000 
060277 
020134 
030006 
143400 
107000 
044134 
060177 


022013 
024025 
107400 
030420 
143620 
111220 
151220 
143000 
107000 
044125 
102400 
030075 


073301 
020405 


OFLNI$ 


1979 

s**kROUTINE TO SET UP THE MACHINE STATUS 
LOA 0,C7 

ADO 0,3 sADJUST THE RETURN ADDRESS 


sROUTINE TO CHECK THE MACHINE CONFIGURATION 
SAV 
IN 0,7 
LOA 0,d.PIN+7 
MOVR# 0,0,S2C ;SKIP IF AUTO SKIP FEATURE IS NOT 


s ENABLED 
LDA 1,C60 7ACL = 60 OR 48 DECIMAL 
STA 1,AUTSK 
LDA 1,VRSTP ;GET NUMBER OF STEPS FOR LINE FEED 
MOVL 0,0,SZC ;SKIP IF FORM INITIALIZE IS NOT DESIRED 
STA 1,VPOS  3SET VERTICAL POSITION COUNTER 
STA 2,CMPMD ;COMPRESSED MODE FLAG, 
STA 2,ALTMD ;AND ALT MODE FLAG. 


ADDZL 0,0,SZ2C ;SKIP IF COMPRESS MODE JUMPER IS NOT IN 
0S2 CMPMD 

ADDLA# 0,0,SZC sSKIP IF ALT JUMPER 1S NOT IN 

082 ALTMD 


LDA 2.05 ;Ac2 = 5 

MOVS  —-Ov1 

MOVR 0,0 

ANOZR# 2,1,SZR :SKIP IF 6 LINES PER INCH 

INC 2,2,SKP ;AC2 = 6 

LOA 2,C10 " sac2 = 10 

STA 2,VRSTP ;"VRSTP" HAS THE NUMBER OF STEPS NEEDED 
3FOR A LINE FEED 

ANOL 1,0 

SUsCL ty sAC1 = 1 IF COMPRESSED PRINT IS DESIRED 
70 OTHERWISE 

STA A, PRTYP 

MOVZL “te 7AC1 = 0 FOR REGULAR PRINT AND 2 FOR 
sCOMPRESSED PRINT 

LDA 2,C10  ;AC2 = 10 


ADDZL 0,0,;S2C sSKIP IF ALT 1S NOT TO BE SELECTED 
ADO 2st 


INTOS 

LDA 0,OT3FL 

LDA 2.CS sAC2 = S : 

AND 210 sMASK OUT EVERY THING BUT BITS 13 & 15 

Aod Ort 

STA 1,OT3FL 

INTEN ; 

IN 0,3 sREAD THE FORMS COUNT IN DECIMAL 
LDA 0,d.PIN+3 

LDA 1,C17 zAC1l = 17 

AND 0,1 

LDA 2,C360  sBITS & THRU 11 ARE SET 

ANDZR 2,0 

MOVZR Ore 

MOVZR 2r2 

ADD . 2,0 sCONVERTING DECIMAL TO OCTAL 

ADD Onl 

STA 1,LNCNT 

Sub 0,0 

LDA 2,VRSTP ;GET THE NUMBER OF VERTICAL STEPS 

+TO0 BE TAKEN FOR COMPLETING 1 LINE 
MUL 


LOA 0,C2450 


PROPRIETARY INFORMATION OF DATA 


COPYRIGHT OGC, 


0050 LPe0l 


01 
02 


42513 106415 
42514 126400 
42515 044024 
42516 002054 


42517 002450 Ca4s0: 
42520 000360 C360: 


1979 


SUB# 
Sua 
STA 
JMP 


2450 
360 


0+1,SNR 
1yi 
1,FRMFL 
OPRSTR 


GENERAL CORPORATION, 


sTEST FOR NO FORM LENGTH SWITCH 
sCLEAK ACL 


sRETURN 


PROPRIETARY INFORMATION OF DATA 
COPYRIGHT DGC, 1979 


$0051 Lpeot 

01 RTCLK: 3**COME HERE TO 
02 42521 054172 STA 3,RTSV3 
03 42522 040171 STA O,RTSVO 
04 42523 101100 MOVL 0,0 

05 42524 040173 STA 0/RTCRY 
06 42525 010167 1sz HRCNT 
07 

08 42526 020167 LDA U,HRCNT 
09 42527 034053 LDA 3,C60 
10 42530 162442 sSuBO 370,S82C 
11 

12 

13 42531 000406 . JMP RTRET 
14 4aS$2 101004 MoV 0,0,SZK 
15 42533 000412 JMP RTCLL 
16 42534 034130 LDA 3,HSTFL 
17 é 

18 42535 054174 STA 3,RTCSV 
£9 42536 004443 © JSR STOP 

20 42537 020173 RTRET: LDA 0,RTCRY 
21 42540 101200 MOVR 0-0 

22 42541 020171 LDA O,RTSVO 
23 42542 034172 LDA 3,RTSV3 
24 42543 060177 INTEN 

25 42544 002000 JMP a0 

26 

27 42545 £62404 RTCL1: -SUB 3,0,SZR 
28 ‘ 

29 42546 000771 JMP RTRET 
30 42547 040167 STA 0, HRCNT 
31 42550 034005 LDA 3,04 

32 42551 020170 LDA 0, RETRY 
33 42952 116442 SUBD 0,4,S2C 
34 

35 42553 002003 JMP @PFALT 
36 42554 010170 sz: RETRY 
37 42555 020174 LDA 0,RTCSV 
38 

39 42556 000760 JMP RTRET=1 


GENERAL CORPORATION, 


SERVICE MICRO NOVA REAL TIME CLOCK 
7SAVE AC3 
sAND ACO 


SAVE THE CARRY 
sINCREMENT THE NUMBER OF REAL TIME CLOCK 
7 INTERRUPTS RECEIVED 


7AC3 = 60 
;SKIP IF MORE THAN 48 INTERRUPTS HAVE 
?BEEN RECEIVED SINCE THE MOTOR STARTED 


+STEPPING OR SINCE THE LAST PRINT INT. 
FRETURN FROM REAL TIME CLOCK INTERRUPT 
+SKIP IF THIS WAS THE 48TH INTERRUPT 


7GET THE LAST HORIZONTAL COMMAND THAT 
7WAS ISSUED 

sAND SAVE IT 

tRESTORE THE CARRY 


sAND THE ACCUMULATORS 


_ RETURN FROM THE REAL TIME CLOCK INT. 


SKIP IF THIS WAS THE 96TH REAL TIME 
sCLOCK INTERRUPT 


30 OUT THE COUNT FOR A RETRY 

sAC3 = 4 

GET THE NUMBER.OF RE*TRIES MADE 

aed IF LESS THAN 4 RE*TRIES HAVE BEEN 
+MAD 


s INCREMENT THE RE=TRY COUNT 
3GET THE HORIZONTAL COMMAND TU BE 
3 ISSUED 


PROPRIETARY INFORMATION OF DATA GENERAL CURPORATION, 
COPYRIGHT DGC, 
10052 LP201 


42557 
42560 
42561 


42562 
42563 
42564 
42565 


42566 
42567 
42570 


42as71 
82572 
42573 


42574 
42575 


42576 
4eS77 


42600 
42601 
42602 
42603 
42604 
42605 
42606 
42607 
42610 
4e6ii 
42612 
42613 
42614 


42615 
42616 
42617 


42620 


42621. 


42622 


42623 
42624 
42625 


42626 
42627 


DECST: 


175400 
102401 
102520 S1EP: 


062401 


040167 
071077 
0354144 


175622 
O34117 
171100 


030102 
151165 
102400 


431100 
111100 


151140 
117600 


141101 
062401 STOP: 
060277 
030130 
040130 
034072 
163000 
034006 
165620 
173400 
117400 
157200 
137605 


126400 
063477 
152000 


034045 
117000 
041400 


034046 
137000 
041400 


002401 
042250 PRSTis 


1979 


s#*x*ROUTINE TO START THE HORIZONTAL STEPPER MOTOR 
sENTER WITH BIT 0 OF AC1 A 1 TU MOVE TO THE LEFT 
sAND AG TU MOVE TO THE RIGHT 

#LOSES ACO AND CARRY 


INC 
SUB 
SUBZL 


SAV 
STA 
RCTEN 
LDA 


INCZR 
LDA 
MOVL 


LDA 
MOVCL 
SUB 


MOVL 
MOVL 


MOVOL 
ANOR 


MOVL 
SAV 
INTOS 
LOA 
STA 
LDA 
ADD 
LOA 
INCZR 
AND 
AND 
ADOR 
ANDR 


SUB 
SKPBN 
ADC 
OUT 
LDA 
ADD 
STA 
OUT 
LDA 
ADD 
STA 


JMP 
RSTOR 


3,3 
0,0,SKP ;ACU = 0 
0,0 7ACO = 1 IF THE STEP AT A SLOW SPEED 
zANO 1 IF IT HAS TO STEP AT A HIGH 
7SPEED 
7SAVE THE WORLD 
“O,HRCNT sINIT THE COUNT 
TENABLE THE REAL TIME CLOCK 
3,PLTSL ;AC3 WILL BE =1 IF PLOTING MODE IS 
sSELECTED, 0 OTHERWISE 
3,3,SZC ;SKIP IF IT IS SELECTED 
3,PRTYP sAC3 IS THE PRINT TYPE 
5,2 sLUAD CARRY WITH 1 IF ELONGATED MODE OR 
;PLOTTING MODE 
2,HSLEW 
2,2,SNR -;SKIP IF SLEW MOTION IS TO START 
0,0 sELONGATED PRINT WILL TAKE PLACE AT 
3INC. SPEED 
1,2 
0,2 3BIT 0 GF AC@ WILL BE 1 IF STEPPING 
#70 THE LEFT AND 0 IF STEPPING 10 
sTHE RIGHT 
22 
0,3 #CARRY WILL GET LOADEO WITH 1 IF COMP, 
PRINT AND STEPPING AT HIGH SPEED 
2,0,SKP 
2,HSTFL 3GET THE LAST HORLZONTAL COMMAND 
O,HSTFL SAVE THE HORIZONTAL COMMAND 
3,VRTFL 3GET THE VERTICAL FLAG 
3,0 ACO = FINAL OUT S COMMAND 
3,C5 7AC3 55 
3,1 zAC1=3 : 
3,2 sMASK OUT EVERYTHING EXCEPT BITS 13 & 15 
0,3 sCARRY WILL BECOME 1 ONLY IF SIT 1S OF ONE 
2,3 sOF THE 2 ACS IS SET 
1,5,SNR ;SKIP IF BIT 13 OR 15 IS DIFFERENT 
IN AC2 OR 3 
1,1 
CPU :SKIP IF INTERRUPTS WERE ENABLED 
2,2 sAC2 = =1 
0,5,3 
3, POUT+S 
0,3 
0,0,3 
1,673 sCLEAR PRINT AND START CHARACTER 
3, .POUT+6 
1,3 
0,0,3 
sINTERRUPTS CAUSED BY CHANGE IN 
sDIRECTION FLAG 
@PRST1 yRETURN 


O) 


01 
02 
03 


PROPRIETARY INFORMATION OF DATA 
COPYRIGHT OGC, 
$0053 LP2o1 


42630 
42631 
42632 
42633 
42634 


42635 


42636 
42637 


42640 
42644 
42642 
82643 
42644 
42645 
42646- 
42647 
42650 
42651 
42652 
42653 
42654 


42655 
42656 
42657 
42660 
42661 
42662 
42663 
42664 
42665 
42666 
42667 
42670 
42671 
42672 
42673 
42674 
42675 


42676 


42677 
42700 
42701 
42a702 
42703 
42704 
42705 
42706 
42707 
42710 
42711 


024061 
125200 
060277 
024534 
125200 


125162 


044134 
060177 


050043 
133000 
041000 
001401 
062401 
030033 
020022 
142023 
002054 
020040 
030032 
112415 
020052 


040040 
010040 
014041 
000413 
020007 
101400 
040041 
020012 
101400 
112415 
020052 
040040 
040012 
020035 
024031 
122000 
Ou2ados 


041233 


026014 
127112 
002054 
102620 
040175 
020052 
040040 
040012 
020007 
040041 
002060 


BELL: 


TESTS: 


LIND: 


POAT 
SLFTS: 


1979 


LOA 
MOVR 
INTOS 
LDA 
MOVR 


MOVCL 


1,8LCNT 
Yel 


1,0T3FL 
1,1 


1,1,S2C 
1,0T3FL 
1,3,2 


GENERAL CORPORATION, 


3GET THE COUNTER FOR THE BELL 
sCARRY IS 1 IF IT WAS ODD & 0 IF EVEN 


sAC1 = LAST OUT 3 COMMAND ESSUED 
7BIT 0 IS THE LAST CARRY & NOW THE 
CARRY HAS BIT 15 OF LAST OUT 3 
sCOMPLEMENT SIT 15 AND SKIP IF 
7THE HELL COUNT WAS EVEN 


RING THE BELL 


2, POUT+3 


1,2 
0,02 
1,3 


2,C7 


sRETURN 
#SET UP FOR RETURN 
sLUAD AC2=7 


0,FIFOB+2 #LOAD ACO WITH FIFOB 


2,0,SNC 
OPRSTR 
0, «POUT 
2,C177 
0,2,SNR 
0,C40 


0, POUT 
POUT 
oPOUT+1 
LIND+1 
0,0132 
0,0 


TEST IF FIFO8 1S FULL 
YES, RETURN TO SCAN 
?LQAO ACO WITH CHAR 
sLOAD AC2=177 

?TEST FOR LAST CHAR 
GET FIRST CHAR 

xIF IF WAS LAST CHAR 
REPLACE CHAR 

7UPDATE CHAR 

?COUNT # CHAR IN LINE 
:NOT EWD OF THIS LINE 
3GET LINE LENGTH 


0, .POUT+! RESTORE LINE LENGTH 


“0, oPINt2 


0, PIN+2 


0,C12 
1,C0377 
1,0 
OPDAT 


1,4 


3GET CHAR THAT STARTEO LINE 
UPDATE CHAR COUNT FOR NEXT LINE 
7TEST FOR LAST CHAR 
START WITH FIRST CHAR AGAIN 
sPUT CHAR FOR START OF NEXT LINE 
#REPLACE UPDATED CHAR 
PUT 12 IN ACO FOR LINE FEED 


sMAKE ACO LOOK LIKE DATA OF IN2 
3G0 TO ROTTO ROUTINE TO 
sPUT CHAR IN FIFOS8 


*GET MACHINE STATUS 


1,O.PINeG 


1,1,8ZC 
@PRSTR 
0,0 
0,STFLG 
0,C40 
0,.POUT 


0, .PIN+2 


0,D132 


sARE WE OFF LINE 
7NO RETURN 
sMAKE ACU EQUAL TO 100000 
7SET SELF TEST FLAG 
3GET CHAR TO START LINE 
7SAVE THE CHAR 

sSAVE INITIAL CHAR 
3GET LINE LENGTH 


0, POUT+! sSET UP LINE LENGTH 


@PSCAN 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 
COPYRIGHT DGC, 1979 
$0054 LP201 


01 si INITA? INITIALIZATION BLUCK TU BE MOVED TO LOCATION 1 
02 3IN RAM SPACE, 

03 

04 042711 ZREL Seni DISTANCE THIS BLOCK MUST BE MOVED vDUWN, 
OS 42712 042375 INTS sMUST BE 1 

06 42713 042521 RTCLK *7LOC. 2 REAL TIME CLOCK INI. VECTOR 
o7 000003 PFALI =.-ZREL 

08 42714 040375 HELP STACK ERROR OR SOME OTHER FAULT 
09 000004 RINIT =.e°ZREL 

10 42715 040043 Init 

11 000005 c4 S.cZREL 

12 42716 000004 4 : 

13 000006 C5 =.°ZREL 

14 42717 000005 S 

15 000007 0132 =.~ZREL 

16 42720 000204 13e. 

17 000010 .PIN =.eZREL 

18 4272: 037770 37770 

19 de7T22 037771 37771 

20 42723 037772 37772 

2% 42724 037773 37773 

22 42725 037774 $7774 

23 42726 037775 37775 

24 42727 037776 37776 

25 42730 037777 $7777 

26 

e7 

28 000020 FIFOB =.°ZREL ¢MUST BE AT LOCATION 20 
29 42731 002777 3000-1 

30 42732 000000 u 

31 42733 003000 3000 

32 42734 001020 BLFOB2 

33 

34 000024 FRMFL =.°ZRKEL 

35 000024 AUTIN S.°ZREL 

36 42735 007767 7767 tMUST BE AT AN AUTO INC, LOCATION 
37 000025 C17 S=.-ZREL 

38 000025 FIFOA =.°ZREL 

39 42736 000017 20-1 

40 42737 000000 tH] 

41 42740 000020 20 

42 000030 C1000 S.°ZREL 

43 42741 001000 BIFOAx2 

4g 

45 000031 C377 =.~ZREL 

46 42742 000377 377 

a7 000032 C177 =,°ZREL 

98 42743 000177 177 

49 000033 C7 =.e°ZREL 

SO 42744 000007 7 

Si 000034 C10 =.<°ZREL 

S52 42745 000010 10 

53 000035 Cia =.°ZREL 

54 42746 000012 t2 

ss 000036 C13 =.°ZREL 

56 42747 000013 13 

57 000037 C15 =.-ZREL 

S58 42750 000015 15 

s9 000040 .POUT S.°ZREL 


60 82751 040000 40000 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 


CUPYRIGHT OGC, 


0055S LPegl 


o1 
02 


42752 
42753 
42754 
42755 
42756 
42757 
42760 
42761 
42762 
42763 
42764 
42765 
42766 
42767 


42770 


4a77.- 


42772 
42773 
42774 
4271S 
42776 


044000 
050000 
054000 
060000 
064000 
070000 
074000 
000050 
000050 
000020 
000051 
000033 
0000S2 
000040 
000053 
000060 
900054 
042250 
000055 
042601 
000056 
042561 
000057 
042557 
000060 
040470 
000061 
010000 
000062 
177777 
000063 
177777 
000064 
000001 
000065 
000002 
042777 
000001 


PFIFS 
Ceo 


C33 

cay 

C60 

PRSTR 
PSTOP 
PSTEP 
PDECS 
PSCAN 
BLONT 
LINES 
CHRDY 
ECLCT 


1979 


84000 
50000 
54000 
60000 


=BEGIN+3000-. 7ROOM REMAINING IN ROM (MUST BE POS), 
LAST LOCATION CONTAINS 40000° WHEN 

sMACHINE IS POWERED UP HARDWARE SENDS 

7CPU TO LAST MEMORY LOCATION BY DE~ 

sFAULT CPU JUMPS TO LOCATION CON- 

sTAINED HERE AND STARTS EXECUTION 

3OF THE PROGRAM AT 40000° 

sEND OF THE INITIALIZATION BLOCK 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 
COPYRIGHT DGC, 1979 
$0056 LP20i 


«00001 TOTAL ERRORS, 00001 FIRST PASS ERRORS 


PROPRIETARY INFURMATION OF DATA GENERAL CORPORATION, 


COPYRIGHT DGC, 


0057 LP2ao. 


ALTMD 000122 
ALTNT 041724 
ARGEX 041531 
ARGFL 000162 
ARGMN 041512 
AUTIN 000024 
AUTSK 000163 
BACK 000110 
BASE 041641 
BBUF 000003 
BEGIN 040000 
BELL 042630 
BIFOA 000400 
SIFOB 000410 
BLCNS 040636 
BLCNT ‘000061 
BUFST 000176 
HYFLG 000201 


cio 000034 


C100 6040215 
C1000 000030 
C105 041454 
C117) «(043626 


ci2 000035 
C13 000036 
C131 041453 
C15 000037 
C17 0v00as5 
C177 000032 
c2 000065 
ceo 000050 
cai 040205 


C23 040407 
C2450 042517 
C3000 040311 
C33 000051 
C360 042520 
C377 «000031 


c4 000005 
C40 000052 


C44 040415 
cs 000006 
cs7 040405 
cé0 900053 
c7 000033 


c74 040410 
C76 040404 
C777) «=—042317 
CARIG 040176 
CHAOR 000156 
‘CHCNT 000107 
CHROY 000063 


1979 


1u/iag 
26/41 
35/41 
11/478 
35/4808 
14/18 
11/508 
9/5048 
37725 
B/10# 
14/054 
20/08 
13/188 
13/198 
24/06# 
22/07 
12/194 
12/25# 
25/23 
14/17 
S4/Sin# 
17/078 
19/19 
Sasai# 
36/17 
38/60 
15/41 
34/408 
15725 
54/574 
31/33 
25/05 
53/22 
19/26. 
29/12 
16/554 
19729 
49/60 
16/07 
24/45 
497/49 
14724 
31/08 
18/54 
14/31 
53/36 
20/108 
16/43 
20/02# 
22/58 
18/57 
39/43 
20/058 
19/59 
45/08 
15/55 
11/374 
9/478 
16/18 


39/37 
39/358 
36/0448 
36/09 
377/07 
54/3548 
16/30 
17/al 
38/04 
27/29 
55/38 
53/014 
54/43 
34/32 


22/09 
19720 
19/23 
a7s4ay 
15/27 


19750 
S4/42n 
35/52 
38/144 
45/14 
16/20 
35/749 
25/23 


49/47 
30/06 
S4/47%# 


55/7354 


29/48 
19/32 
20/048 
$0/06# 
18/508 
31/25 
50/07H 
19/22 
31/14 
19/03 
28/27 
53/51 
21/46 
22/33 
22/40 
87/17 


. 21/15 


49/02 
22/16 
20/014 
96/138 
16/04 
32/43 
17745 
22/27 


49/16 


36/10 


49/11 
24/28 
38/258 
34/18 


26/35 
27/44 
19/30 
27/46 
26/12 


19/56 


53/39 
a5/ai 


26/17 


SG/378 
30/30 


4a/i2 


35/22 


21/41 
34/26 
437/09 
30/18 
55/134 
22/32 
44/32 


49/10 
26/07 
53/17 


47/37 
16/25 
33/19 
21/37 
23/29 


49/20 


42/09 


26/23 
38/53 


33/27 
21/43 
31/36 


54/538 
31/37 


31/39 


32/01 


47/18 


55/114 


2e/e4 
37/55 
51/31 
31/55 


49/21 
51/09 


26/36 
54/494# 


16/474 


24/08 
23/44 


42/28 


38/54 


53/01 
21/50 
43/23 


44/13 
40/13 


37/31 


55/094 


23/19 
41/30 
S4/1t# 
32/04 


49/40 


S5/15# 
28/33 


24/10 
24/01 


55/278 
22/34 
49/26 


54/554 
43/25 


39/50 


23/45 
53/40 
35/06 
52/38 


33/25 


26/21 
24/49 


22/59 


49/35 


44/33 


48/17 


27/39 
S4/45# 


53/24 


54/138 


-39/09 


25/04 


00s 


CHRST 
CLRBS 
CLRIB 
CMADR 
CHNDE 
CMNDS 
CMPMD 
CMPRS 
cPo 
Ot28 
0132 


DECST 
DELAY 
Oso 


OISt 


DLAODR 
OLCHR 
OLFLG 
DOLLA 
OLLB 
DLLC 
OLLF 
OLLSL 
DSCNC 
OSRFL 
OSRTM 
OTAS] 
ECLCT 
eCMD 
ECMND 
ELNDS 
ELNEN 
ELNSL 
ELONG 
EMPT1 
EMPTY 
END 
ESAR1 
ESC3 
ESCEX 
ESCHK 
ESCLP 
ESCmD 
ESCP1 
ESCP2 
ESCP3 
ESCST 
ESCSV 
ESFL1 
ESFLG 


EXTBL 
FCMNOD 
FIFOA 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 


COPYRIGHT DGC, 


8 LPeoL 


o4aii4 
041421 
041667 
041620 
oouLal 
000140 
000121 
041750 
040t26 
040406 
000007 


042557 
000164 
177766 


000000 


000136 
041653 
000137 
000076 
000077 
000100 
000132 
000135 
040361 
000157 
040541 
000160 
000064 
041665 
000154 
041656 
000161 
041655 
041774 
041023 
040417 
082777 
041705 
041413 
041556 
041455 
041566 
000153 
041471 
041473 
041500 
040467 
041555 
000152 
000151 


043641 
041661 
0000a5 


1979 


25/20 
43/018 
32/26 
$8/598 
37/19 
10/584 
10/554 
10/128 
38/29 
14710 
20/038 
17/41 
54/158 
52/018 
11/534 
37745 
58/20 
$7749 
38/32 
10/484 
36/20 
10/514 
9/25# 
9/274 
9/298 
10/378 
10/454 
19/7388 
11/408 
19/41 
11/4en 
30/11 


"38/18 


11/3148 
S8/16 
11/444 
38/16 
58/28 
24/20 
21/0248 
9/04 
36/08 
$1735 
26/42 
35/018 
37/148 
11/298 
35/168 
35/20# 
33/39 
21/5448 
30/40 
11/25# 
1i/228 
38/58 
38/268 
36/18 
30/35 


25/32 
48/354 
32/33 


37725 
36/15 
33/38 
40/04 
40/04# 
14/38 
21/17 
17/724 


55/24 
22/05 
38/14 
38/21 
38/26 
38/33 
25/53 
38/31 
25/Se 
41/21 
41/05 
41/18 
31/13 
31/56 
22/53 
19/43 
22/4948 
19/39 
32/18 
38/574 
33/12 
38/428 
17/ee2 
38/414 
40/284 
24/53 ° 
26/43 
SS/37a8 
39/164 
33/378 
37/034 
35/19 
37/40 
33/09 
38/48 
38/44 
35/254 
24/23 
37/024 
21/54 
31/18 
39/24 
38/54 
38/478 
54/388 


28/08 
33/22 


37/41 
31/13 
35/36 
49/15 


16/014 


25/43 


22/06 
38/15 
38/22 
38/27 
38/34 
45/55 
38/378 
38/37 
41/13 
41/07 
41/20 
41/36 
40/55 


22/48 


19/45 
$2/55 


35/31 
25/55 


26/434 


35/55 
35725 


24/40 
33/43 
41/02 


55/31# 
33/8448 
38/048 


35/47 
49/18 


39/28 


45/35 
38/16 
38/23 
38/28 
38/55 


41/16 
41/09 
41/22 


22/54 


22/38 
33/33 


40728 


35/29 


36/11 
35/15 


37/01 


37/11 


40740 


38/17 
38/538 
38/29 
38/S4# 


41/23 
41/27 
4i/31 


31/07 


38/42 


40/36 
35/18 


53/30 


38/18 


38/30 


41725 


Savi 


40/24 


40/44 
35/720 


53/54 


38/19 
38/31 


55/334 


35/46 


PROPRIETARY INFURMATION OF DATA GENERAL CURPORATION, PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 


COPYRIGHT OGC, 1979 COPYRIGHT DGC, 1979 
0059 LP20dt 0060 LP20t 
FIFOB 000020 23/02 53/18 54/288 LIND 042672 53/29 53/394 - 
FRMFL 000024 16/02 16/15 16/26 50/03 54/3448 LINES 000062 16/750 17750 26/49 32/10 32/37 35730 55/294 
GET 041033 17/06 24/16 27/018 LNCNT 000125 10/238 39/19 49/55 
GETL 041035 20/11 24/16 27/168 c LNEND 041342 31/45 32/55# 
GET2 041045 24/34 27/248 LNFR1 040326 19/098 21/29 
GET4 040416 20/11# 23/36 LNFRe 040443 19/11 19/16 21/7308 
GETCH 042064 41/03 41/06 41/10 41/12 41/419 41/29 41/358 LNFRM 040437 21/13 21/248 
GOTIT 040662 24/e2i 24/368 LNSIZ 000126 10/2e5# 30/705 32/45 33/10 33/31 
GTIT1 040674 24/04 24/39 2q/s1a Lo 000002 8/09#% 23/02 24/31 24/33 27/18 27/22 34/10 
GTIT2 040716 25/03 25/108 : LOBE 041054 e7/sizn ‘ 
HDINT 040336 19/178 87/57 . LTOFL 000177 1e/21# 16/48 19709 22/723 22729 23/46 26/719 
HELP 040375 19/S3# 54/08 MASK 000000 B/O7H = A7/17 27/26 34/13 
HNDMY 042257 43/07 45/308 MCINO 000001 B/07# 46/068 
HPOS 000101 Q/31e 15/729 16/47 17/58 2i/io 25/40 40/39 MCIN1 000001 8/074 15/054 15/12 15/39 43/at 48/15 
: 45/26 43/41 45/30 MCIN2 000001 8/078 14/308 31704 
HRCNT 000167 11/608 45/43 51/06 51/08 51/30 Se/ile MCIN3 000001 B/07# 23/218 33/41 47/53 49/46 
HRTAB O41714 35/60 38/14 359/248 MCING 000001 8/078 19725# 21/706 22/15 23/10 24/37 53/46 
HRTER 000127 10/27# 159/32 24/58 45/38 MCINS 000001 B/O7H# 30/29# 
HR2TB 042002 56/26 BO/39H MCING 000001 B/07# 47/288 
HSLEW 000102 9/338 15/728 17/15 18/07 18/45 23/52 28/09 MCEIN7 000001 : 8/078 49/078 
28/14 43/48 43/50 52/20 MCOTO 000000 8/074 
HSTFL 000130 10/518 18/52 21/31 25/19 28/1 36/21 43/03 MCOT1 000001 8/07# 19/548 23/48 
47/26 51/16 52/34 $2/35 mcoT2 000001 B/O7# 14/338 19/47 22/42 
HTAB 000211 12/31 34/51 39731 40/43 MCOT3 000001 8/07H 39/54H 44/18 S3/1e 
HTBFL 000166 11/574 23/51 28/15 43/54 MCOT4 900001 8/07# 45/114 
IHTAB 042006 40/438 MCOTS 000001 8/078 S2/4948 
IN 006756 MC B/07#8 14/729 15704 15/11 15/18 19/24 21/05 MUCOT6 000001 8/078 14/26# 48/27 $2/53 
22/14 23/09 23/20 24/36 30/28 31/03 33/40 MCOT7 000000 B/07R 
43/20 46/05 47/27 47/52 48/14 49706 ag/a5 : MCPLO 000000 6/07H# 
$3/45 MCPL1 000000 8/07# 
INO 007115 MC 46/068 ‘ MCPL2 000000 8/07# 
Int 007057 MC 15/05# 15/12 15/19 43/21 48/15 MCPL3 000001 ‘B/OTH =LA/37K 
IN2 007043 MC 14/308 31/04 MCPL4 000000 8/07% 
IN3 007073 MC 23/2ie 33/41 47/53 49/46 MCPLS 000000 B/0T# 
ING 007062 MC 19/258 21/06 22/15 23/10 24/37 53/46 : MCPL6 000000 8/078 
INS 007076 MC 40/298 MCPL7 000000 B/O78 . 
IN6 007120 MC 47/288 MRST 041766 38/55 40/228 
IN7 007123 MC G9/07H# . MRST1 041773 40/26 40/27# 
INILP 040004 18/118 14/15 i MRST2 040031 14/38# 40/27 
INIT 040043 15/01# 15/09 54/10 MSKOT 041060 27/39K 
INITA 042712 9/04 14/48 54/0148 MTRIX 042270 44/48 45/41# 
INTRT 040102 15/10 15/14 15/17 15/21 15/30 15/408 MTRX1 0482277 44/54 45/508 
INTS 042375 48/018 54/05 NCMND 042020 38/19 40/5448 
INTSR 042421 4B/19 48/3348 NOMUR 041464 35/128 37/34 
1833 041416 31/28 33/408 NXTLN 040136 16/108 19/08 28/19 
ITAB 041723 39720 39/328 OCMND 042021 $B8/19° 480/558 
KEYTO 041306 31/47 31/564 OFLNO 042430 23/07 49/018 
KEYT1 041174 30/02# 32/16 QOFLN1 042432 17701 49/0448 
KEYT2 041406 32/09 33/29% OFLNe O41113- 26/20 28/224 
KEYT3 041407 31/60 33/308 OFLST 040455 21/7438 22/18 
KEYT4 041340 31/32 | 32/328 35/37 35/59 OFRET 040506 : 21/47 22/192 
KEYTB 041335 30/10 32/298 33/35 OTSFL 000134 10/de% 15/45 19/45 39745 39/52 43/ile 4as14 
KYBRO 041215 $0/2SH 48/37 ‘ 44/16 49/39 49/43 53/04 53/09 
LOSPC 000123 10/468 32/11 33/06 33/29 35/07 OTwO 040367 19/468 19/57 19760 
LFTIN 040056 15/07 15/164 : QUT 006774 MC 8/07# 14/25 14/32 19/33 19/46 22/41 23/47 
LFTPR 040271 © 15/38 17/87 16/234 59/53 4Q/17 45/10 98/26 52/48 Se/S2 53/11 
LI 000001 . 8/088 27/24 34/12 34/17 Outi 007065 MC 19/7548 23/48 
‘LIFO 040653 24/14 24/258 ouT2 007046 MC 14/338 19/487 22/42 


006 


OUTS 
ourTd 
OUTS 
OUTS 
PALIN 
PBELL 
PCLRB 
PDAT 
PDECS 
PESC 
PESCT 
PESOC 
PFALT 
PFBY 
PFIFA 


PFIFB- 


PFMD 

PFSS 

PFSSI 
PGET 

PHTAB 
PINIT 
PLMOD 
PLOT 

PLOT! 
PLOT2 
PLTFL 
PLTSL 
PNXT 

PNXIL 
POFLN 
POFLO 
PPPUT 
PPRBG 
PPUT1 
PRADR 
PRARG 
PROG 

PRCHR 
PRENT 


PROIR 


PROLL 
PROTT 
PRET 

PRINT 
PRNT1 
PRNTI 
PRSKP 
PRSTL 
PRSTR 


PRIST 
PRTYP 


PSADR 
-PSCAN 


PROPRIETARY INFORMATION OF DATA GENERAL CURPORATION, 
COPYRIGHT DGC, 


1 Le2oi 


007101 
007107 
007126 
007035 
041021 
040413 
041554 
042676 
000057 
041230 
040652 
041022 
000003 
042374 
041223 
000050 
000120 
040127 
040165 
040214 
041722 
040050 
041663 
041764 
042320 
042236 
000142 
OovLa4 
040325 
O411t1 
040210 
040561 
041227 
040224 
041214 
000115 
041776 
0410148 
000112 
000114 


000113 


042023 
040411 
042170 
0421356 
042200 
00011: 
o00116 
042627 
000054 


042173 
000117 


000155 
000060 


1979 


$9/S4R 
a5/118 
52/49n 
14/268 
25/35 
20/084 
$5705 
53/42 
15/08 
30/4048 
24/234 
24/44 
41/34 
47/55 
27/16 
24/30 
10/1048 
16/024 
16/28 
16/52 
38/59 
15/098 
38/22 
38/54 
44/28 
45/084 
11/014 
11/06# 
19/088 
25/25 
14745 
25/078 
30/34 
1//198 
30/19 
10/024 
38/31 
17/19 
9/568 
9/60# 
45/07 
9/582 
45/46 
38/20 
20/064 
44/138 
44/018 
44/06 
9/534 
10/044 
$2/58 
30/38 
53/48 
43/55 
10/078 
45741 
11/348 
esis 


44/18 


48/27 
26/418 
22708 
35/16 
53/444 
18/60 
31/21 
24748 
26/428 
47/36 
47/578 
30/35# 
e7/14 
19/17 
16/38 
16/37# 
16/58 
39/518 
15/33 
38/50# 
40/188 
46/154 
46/18 
31/29 
17/38 
19/15 
28/198 
17/018 
24/06 
30/39H 
187/50 
30/228 
26/10 
38/32 
26/4568 
25/38 
21/01 
46/15 
15/35 


41/0148 
23/05 
45/19 
48/35 
44/2348 
43/46 
26/31 
S2/59# 
31/54 
SS/17# 
44/168 
18/23 
46/10 
32/48 
25/30 


53/12 


52/53 


37/018 
26/38 


51/35 


34/07 
21/51 


17704 


38/50 
25/26 


45/47 
40/324 


28/26 
25/01 


18725 


45/34 


44/03 
44/44 


32/03 


25/58 
49/32 
33/15 
26/35 


39/02 


55/23% 


S4/07# 


55/064 
24/51 


17/0648 


40/18 


45/49 


45/51 


26/18 


24/11 


45/39 


44/37 


33/28 


- 26/02 


52/17 
26/40 


39/30 


17/16 


45/32 


46/09 
46/16 
28/31 


25/07 


45/15 


33/44 


40/07 


26/47 


Se/ia 


44/34 


25739 


50704 


40/12 


28/36 


BasuT 


“a7e9 


33/20 


43/17 


36/12 


006 


PSFLG 


PSLCH 
PSPFL 
PSTEP 
PSTQb 
PSTUP 
PSTPL 
PTBCA 
PTEST 
PULS3 
PULSE 
PUT 
PUTL 


PVSTP 
PVTAB 
PVURS 
ROTTO 
RETA 


RETRY 
RETS 
RINLT 
RITPR 
RNBL1 
RNBLL 
ROM 
RSTOR 


RSTR1 
RTCLL 
RTCLK 
RTCRY 
RTCSV 
RTDCD 


RTOFL 
RTOP 

RTRET 
RTSND 
RTSVO 
RTSV3 
SCAN 


SCANO 
SCAN1 
SCAN2 
SCANS 
SCANG 
SCANS 
scOR 

SCORE 
SCOTH 
SCRFL 
SERBY 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, 


COPYRIGH! DGC, 


2 LP20t 


000124 


040562 
000143 
000056 
042066 
000055 
041122 
O40erl 
040412 
007054 
007016 
041422 
041424 


040223 
041713 
040651 
041231 
000066 


000170 
000067 
000004 
040270 
041410 
0411477 
000001 
042250 


042251 
042545 
042521 
000173 
000174 
042000 


041007 
040042 
042537 
040402 


000171" 


000172 
040470 


040566 
040621 
041012 
040546 
040563 
040557 
000147 
041777 
040616 
000146 
040345 


MC 
Mc 


1979 


39/21 
10/18 
32/50- 
25/068 
11/048 
15/16 
41/24 
15/15 
25/48 
15/51 
20/0748 
14/374 
8/078 
30/39 
$0/22 
34/078 
16/46 
39708 
e4/2e# 
20/06 
9/06# 
30/32 
42/15 
12/05# 
9/7088 
14/46 
15/36 
33/24 
26/32 
25/368 
43/15 
47/41 
45/228 
Si/25 
51/018 
i2/12H 
12/148 
38/39 
40/368 
26/298 
14/08 
51/13 
19/59# 
12/078 
12/10# 
18/49 
22/0148 
22/57 
23/15 
26/32% 
22/47 
23/01 
25/058 
11/168 
38/53 
23/43 
11/138 
19/248 


40/37 
307048 
32/52 
23/57 
lo/4) 
26/39 
41/398 
19754 
28/208 
17/028 
23/28 


14/36 
34/0148 
32/32 
35/23 
17/182 
39/228 
24/57 
31/018 
14748 
30/37 
42/51 
18729 
40/35 
15/34 
16/49 
33/312 
30/058 


43/53 
47/46 


51/2748 
54/06 
5i/05 
51/18 
39/17 


28/24 
14/488 
51/208 
23/17 
51/03 
51/02 
19/06 
23/60 
23/06 
23/40 
28/17 
22/554 
23/098 
es/ie 
25/51 
40/34# 
23/478 
25/50 
21/52 


40/42 
30/14 
33/03 


16/45 
55/214 


21/35 


32/36 


16/01 
34/09 


51/32 
30/36 
15/740 
18/05 


44/08 
47/S6 


51/20 
51/37 
39/42 


28/30 
51729 
51/22 
51/23 
19/52 
35/26 


23/134 
25/514 


45/01 


40/34 


53/56 
31/48 
33/30 


26/48 


4au/le 


33/04 


23/18 
34/25 


51/36 
45/50 
26/46 
18/224 


a4u/e2l 
52/59 


40/03 


51/39 


21/04 


55/7258 
32/21 
35/02 
44/23 


47/29 


33/11 


23/41 
34/38 


46/11 
54/094 


44/46 


55/18 


40/06 


21/34 


32/23 
39/26 


55/198 


33/14 


29/10 
35/05 


48/709 


4S/20# 


40/21 


2a1/42 


32/31 


33/17 


29/50 
35709 


48/12 


47/30 


40/30 


21/535 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION, PROPRIETARY INFURMATION OF DATA GENERAL CORPURATION, 
COPYRIGHI DGC, 1979 CUPYRIGHT DGC, 1979 
0063 LP201 0064 LP201 
SKAU 040132 16/054 16/36 VRTAB 042007 36/27 «=40/448 
SLCHK 040312 16/528 23/08 VRTBB 041707 39/18 40/53 
SLFTS 042677 46/39 «=—-53/458 VRTER 000133 10/408 
SNBY 040342 19/18 «19/244 19755) 9 21745 VRTFL 000072 © 9/15# 47/16 47/25 52/36 
SNBYA 040340 19/198 20/09 . VRTIN 060070 9/108 9/41 47/07 = 47/35 T4499 AT/S1 
SNBYZ 040414 20/098 23/04 VRTTB 040112 15/48# 16/23 
SNCL 040462 21/4948 23725 VRTWT 000071 9/t2H 22/10 . 22/12 47/15 = 47/3B AT /43 
STAK 040204 14722 = 46 /54# VSLEW 000073 Q/17# 21/24 25/12 36/24 40/46 487/06 47/10 
STOE 041233 31/05# 53/44 47/87 
STEP 042561 52/0848 55/22 VTAB 000202 12/274 15/52 39/22 
STFL1 041355 32/42 9 32/S2H VUCNS 040175 15/59 16/06 16/468 18/32 
STFLG 000175 . 42/7178 22/730 23/26 53/50 . VUFLG 0U0145 11/098 18/30 2i7ai 24/54 
STOB 041437 $2/25 32/47 32/51 34/208 35/35 41739 VURST 040274 18/284 24/22 
STOP 0482601 51/19 Se2/32# 55/20 VUSLU 040301 18/348 21/22 
STOTS 041731 39/44 40/17 VUTIM 000165 11/S5# 18/33 21709 ai/i2. 
STPi 040321 16/12 = 19/014 28/20 ZCMND 041660 38/20 38/468 
STPFL ‘000131. 10/338 19/04 23/58 44/04 44/07 ZREL 042711 Sus0d# 54/07 S$4/09 S4/11 54/13) «S415 54717 
SVEX 000105 9/4288 9/44 35/13 35/21 9935/24 37/08 37/747 . 54/28 58/34 S4/35 S4/37 S4/38 S4/42 54/45 
40/49 = 40/52 54/47 54/89 «54/51 $4453 S4/55 0 S4757)— 54/59 
SVTBL 041627 38/148 38/53 55/06 55/09 SS5/11 SS/13  SS/15 55/17 55/19 
SWTIM 000150 11/194 16/08 . 21/25 21/30 25/17 55/2) 55/23 S5/2d 55/27 55/29 55/31 55/33 
TAB «042067 39/29 «39/52 «= U/l as olk 35/35 
TBCAL 041130 17/02 =. 29/018 31749 , »PIN 000010 144/30 «15705 15/12 15/19 19/25 21/06 22/15 
TBCLO 041155 29/368 29/43 25/10 23/21 «= 37) = 30729 «1/08 = 33/K1 = Bat 
TBCL1 041156 29/32 29/378 - 46/06 «47/28 47/53 48/15 49/07) 9/46) 53/33 
TBCLe 041165 29/34 297454 53/38 53/46 53/53 SA/L7# 
TBCL3 041172 29/40 29/508 «POUT OU0U040 14/26 «14/33 «14/37 «19/34 = 19/47 2a/4a2 3/48 
TBOCO 041071 25/09 = 28/028 39/54 339/57) 44/18 4S/11 0 e/0L = 8/27) 52/49 
TBELL 041401 32/07 = 33/248 $2/53 53/12 8953/21 = 553/260) 53/27)=— 83/28) = 53/32 
T8FL 000200 12/234 25/16 28/04 28/07 53/37 «953/52 93/55) 54/594 
TBRPT 041176 30/04 30/21 
TEMP1 000103 Q/37H# 17/03 17/4% 29723 29/37) 30717 = 30720 
$2/35 32/54 é : 
TEMP2 000104 9/394 22/21 22/26 22/37 
TEMP3 000070 9/418 15/03 15/47 
TEMP4 000105 9/448 -29/15 29/30 
TEMPS 000106 9/458 16/56 17/23 
TESP1 041662 SB/17 = 38/488 638/52 
TESP2 041657 38/15 38/21 «38/23 38/44H §=640/57 
TESTS 042644 20/07 53/168 
TICK 042350 47/104 48/36 
TOCLR 041721 58/23 939/308 41/37 
TOINT 041024 24/60 26/448 
TOKEY 041310 30/03 = 31/ob# 
TPMF 041030 25/28 26/484 
TPMFA 040736 25/294 26/50 
TRUUT 042044 Gi/19# 41728 
TRTOC 041654 35/14 38/394 
TRUMP 042051 41/248 
TSCAN 042001 36/30 38/32 38/35 40/37# 
vPOS 000074 9/208 15/48 16/16 16/19 16729 40/745 47724 
49/14 
VRCHK 042352 GT/13 47/318 
VRCMD 041676 38/30 39/088 
VRINT 042360 47/28 48/38 
VRSTJ 042323 17/18 «47/018 
VRSTP 000075 © 9/22H 15/49 15/56 16/34 16/39 4u/50 49/12 


49/27 49/57 


PROPRIETARY INFORMATIUN UF DATA GENERAL CORPORATION, 
CUPYRIGHT OGC, 1979 
0065 LP2u1 


THIS IS A RUM MAP FOR THE PRUGRAM USED BY THE MICRONOVA 
IN THE DASHER LP2 AND TP2 PRINTERS. EACH PROM CONTAINS ONE HALF 
AN INSTRUCTION WORD (ONE BYTE) AND S12 LOCATIONS. 


40000 
40001 
40002 
40003 
40004 
40005 
40006 
40007 
40010 
40081 
40012 
40013 
40014 
40015 
40016 
40017 
40020 
40021 
40022 
40023 
40024 
40025 
40026 
40027 
40030 
40031 
40032 
40033 
40034 
40035 
40036 
40037 
40040 
40041 
40042 
40043 
40044 
40045 
40046 
40047 
40050 
40051 
40052 
40053 
40054 
40055 
40056 
40057 
40060 
40061 
40062 
40063 
40064 
40065 
40066 
40067 
40070 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION 


COPYRIGHT DGC, 1979 
0066 LP2u1 
THE FIRST 512 LUCATIUNS ARE CONTAINED IN THE PROMS WITH OG NO.- 


000 
001 
oo2 
003 
004 
005 
006 
007 
008 
009 
010 
oll 
vie 
013 
014 
015 
016 
O17 
018 
019 
020 
021 
022 
023 
024 
oes 
026 
027 
028 
029 
030 
031 
032 
035 
034 
035 
036 
037 
038 
039 
040 
oat 
o4e 
043 
044 
04s 
046 
047 
048 
049 
050 
os1 
052 
053 
054 
oss 
os6 


100-2130 
0100u001 
00110001 
10101100 
Qv1L1001 
00100020 
01000011 
10120110 
1O11L1ite 
00000001 
00110000 
01001100 
11110100 
00000001 
00100001 
01100010 
00100000 
00111000 
10011110 
01000011 
00100100 
00100000 
00111000 
10011110 
0000011 
01000100 
OO1L1001 
V1108002 
14111011 
01010011 
10101011 
00000001 
00001101 
GOOOdi100 
00000001 
01000110 
01011000 
00101106 
10101010 
00000001 
00001100 
02000000 
00001001 
00101100 
10101010 
00000001 
00001100 
v0001100 
00001001 
00100100 
10000010 
00000001 
01100000 
00111000 
00101000 
11111016 
00101000 
01001000 


100-2127 
ouoUuodd! 
00100001 
o000u000U 
01010011 
iS SRSESS! 
voougoou 
vo00vud0”d 
00000100 
11111100 
00011100 
00010100 
Qo0000100 
11112110 
GL110111 
00000001 
00011001 
vo1vuliL 
00000000 
000u0000 
00001010 
00101010 
00100010 
00000000 
00000000 
OO1000E1 
00111101 
01010000 
v0v0v0000 
oovuu0dd 
Oouvu1OO 
11121101 
01101001 
0v000100 
Vird1412 
00000000 
00111000 
00001001 
01001010 
00001000 
00101181 
00100011 
00011001 
00001001 
01001011 
vool1otil 
00101101 
00101110 
Ov010011 
00001001 
01000010 
0001000! 
10411211 
01001811 
OOO114I2 
10001011 
00011100 
01000010 


Cc 


PROPRIETARY INFURMATION OF DATA GENERAL CORPORATION 


COPYRIGHT OGC, 1979 
0067 LP201 


057 
058 
0s9 
060 
061 
62 
063 
064 
06S 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
077 
078 
079 
060 
oul 
062 
083 
084 
085 
086 
087 
088 
089 
090 
091 
092 
093 
094 
095 
096 
097 
098 
099 
1090 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
lil 
lie 
113 


01001000 
00001001 
0101000U 
00111001 
01011000 
00010000 
00000001 
10100001 
00000001 
01011000 
00111000 
01100000 
00100000 
41200131 
01000000 
01100000 
00000100 
00101000 
00110000 
01110110 
00001101 
00000000 
90000000 
10101010 
00000001 
00110000 
01110110 
10100010 
00000001 
00000000 
00111000 
11112010 
90000001 
11000110 
00000001 
00110001 
01010000 
10011010 
00000001 
11010100 
01010000 
00110000 
00111000 
11011101 
01011000 
00100000 
10100101 
00000001 
101012010 
00000001 
00100000 
10000010 
00000001 
00111000 
00110000 
11110110 
10010101 


vioguvdol 
gouuv1000 
01010111 
11101100 
00000100 
01001011 
u1111001 
00000000 
01111000 
90000100 
v0011110 
LOVL1LE14 
01011100 
oo0uv000 
01011100 
ob11i2ail 
00111000 
00111100 
OOL111101 
01000001 
v0111100 
10000010 
goouulls 
vooour10L 
uOLd1i01 
OOLII101 
11000001 
00000000 
00101000 
00110110 
00010100 
voouulnl 
00100101 
ovovv000 


00100010- 


01101101 
01102000 
oovou10N 
01110010 
goo0ugu0 
00110011 
00010100 
00111100 
00100011 
002111100 
OO0L1LI10 
00000101 
11100010 
10000010 
00010100 
O0u1UL00 
00000101 


00001000 | 


00111100 
02110041 
o00ug000 
00100000 


40162 
40163 
40164 
40165 
40166 
40167 
40170 
Bo17i 
40172 
40173 
80174 
40175 
40176 
40177 
40200 
40201 
80202 
40203 
40204 
40205 
40206 
40207 
40210 
4o2it 
40212 
40213 
40214 
40215 
40216 
40217 
40220 
40221 
40222 
40225 
40224 
40225 
40226 
40227 
40230 
40231 
40232 
40233 
40234 
40235 
40236 
40237 
40240 
40241 
40242 
40243 
4o24aa 
40245 
40246 
40247 
40250 
40251 
40282 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION 
COPYRIGHT DGC, 1979 
0068 LP20) 


114 
115 
116 
117 
118 
119 
120 
lel 
l2e 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
i142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
156 
159 
160 
161 
162 
163 
164 
16s 
166 
167 
168 
169 
170 


00110000 
11100101 
00000001 
10101010 
00000001 
oo10000u 
00111000 
11111010 
001000u0 
11111101 
01011000 
00001101 
00101000 
e001 00dK 
00000001 
00011000 
00000001 
00001101 
dvooun0un 
00000000 
01000000 
0v001101 
01000101 
01000010 
01000000 
oovoliul 
01000010 
ovoovou0 
00101000 
10001101 
10100010 
01000000 
00001101 
01000100 
01000010 
10001000 
01001000 
00111000 
00110000 
00101000 
11001101 
00000001 
10110110 
10101101 
11111010 
10000010 
10001101 
10100010 
Li111010 
10000010 
00101000 
LoL01010 
00101000 
10101010 
01000000 
10141001 
00111000 


001111061 
Gouuuol1o 
11100110 
10000011 
1110000) 
GU1I1101 
U120001! 
0V00u100 
00000110 
00000000 
O1200011 
vOU10110 
01u00001 
01112141 
00111000 
00110010 
Gucuuenl 
oouui0uL 
1ogr010l 
v0o10001 
01000110 
0000010) 
00u11U10 
01011000 
o100u011 
00000001 
0uoll1011 
01000001 
ouvoull 
00101010 
00000000 
01000010 
11141010 
11010081 
00001100 
00000000 
02001000 
01110001 
01000110 
ooouuLIL 
00100011 
Govvddls 
0v000000 
00000000 
01001010 
01010000 
00101010 
00000000 
01001010 
10010000 
u1100100 
10010011 
01000011 
10011101 
01000111 
oo100101 
00110010 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION 
COPYRIGHT UGC, 1979 COPYRIGHT UGC, 1979 
0069 LP2u1 0u70 LP201 
40253 171 11101010 01000000 40344 228 0101000U 100v0U001 
40254 172 10000010 v1000101 40345 229 00100100 vOovl10N 
40255 173 00000001 OOOv1101 40346 230 00110000 00110101 
40256 174 00101000 O100u0001 40347 231 11000111 Gouvui00 
40257 175 11001101 OOOLULIO : 40350 232 00000011 vu0u000N 
40260 176 11111010 01000010 40351 233 00100001 00011110 
40261 177 00000003 O00uN0111 40352 234 00110000 10000001 
40262 178 O0LC0000 01000010 40353 235 11010010 O00vu101 
40263 179 11000101 00000000 40354 236 00100001 10011001 
40264 180 10001100 00101010 40355 237 00110000 vo1Lvu0d! 
40265 161 10000011 vovduvo”U 40356 238 10010110 v0000000 
40266 182 10100101 vo1duoud 40357 239 01000010 00000000 
40267 183 100011201 YO0ULI0L1 40360 240 00000011 vuvu000d 
40270 184 10100001 00000001 40361 241 00111000 01110000 
40271 165 11181100 O0000001 40362 242 11111010 voouulol 
, 40272 186 11121101 01010000 40363 2435 00111002 02101110 
40273 167 01031000 01001011 40564 244 1111101) OUOOULL 
40274 188 10108101 Oovvouod 40365 245 01011000 01101111 
40275 189 01001000 01111000 40366 246 01011000 01110000 
40276 190 01001000 01100101 40367 247 00110000 OV1L0010 
40277 191 00101001 10111110 40370 248 10010110 00000000 
40300 192 01001000 Yilivlul : 40371 249 021000010 vOv00000 
40301 193 10001010 01000010 40372 250 00110001 10010011 
40302 194 10000001 oou0Uu00 . 40373 251 10010101 Gouv0100 
40303 195 10101100 1000V0V0 40574 252 O00UU00NU1 00111100 
40304 196 10111101 00001101 40375 253 10000101 0v000000 
40305 197 11100110 OVvOUGOVO 40376 254 00001100 00101101 
40306 198 01000000 01000010 40377 255 00001001 11100011 
40307 199 10010010 00000101 40400 256 001000012 10001101 
40310 200 00000001 o1110000 40401 257 00000001 11110110 
40311 201 00000101 11001011 : 40402 258 00100001 O00u0010 
40312 202 00101000 01011000 40403 259 00000001 11110100 
40313 203 00110000 doovuI0L 40404 260 00000000 00111100 
40514 204 11001111 Ouovv100 40605 261 00000000 00101111 
40315 205 10101100 Ouguvond. 40406 262 00000000 01111100 
40316 206 00111000 00011011 40407 263 00000000 Y0010011 
40317 207 10011101 00100011 : 40410 264 OULVO0OOU 00111110 
40320 208 00001100 00101111 : 40411 265 01000010 10011001 
40321 209 10010010 vouuol0”d 40412 266 01000101 16100100 
40322 210 00110000 oovdui01 : 40413 267 04000101 10011000 
40323 211 01010000 01011001 40414 266 0100000U 11100000 
40324 212 00000001 OL1100100 40415 269 00000000 vO100110 
40325 213 01000000 01011100 Z 40416 270 01000010 00011101 
40326 214 01001000 01111111 40417 271 VOLL100U0 Ui0vI10”N 
40327 215 10110100 Oo1u0011 40420 272 11100010 OvV0UU100 
40330 216 00000001 01001011 40421 273 00000001 00100111 
40331 217 11111010 10001011 40d22 274 00111100 vovvI100 
40332 218 10101011 01010001 80423 275 11111110 11010000 
403335 219 11111010 01001011 40424 276 00101000 v1110102 
40334 220 00000101 11111001 40425 277 10101010 00000110 
40335 221 00000001 O1000111 40426 278 00011000 O1110101 
40336 222 01010000 v1010000 . 40427 279 00000001 00001000 
40337 223 00000001 00000100 40430 260 00100000 00011011 
40340 224 00100000 0v011000 40851 261 00101000 01000001 
40341 225 01000000 01111110 * 40832 282 00110001 11101100 
40342 226 11010100 00000001 40433 283 10110101 00100010 


40343 227 00110000 00011001 40434 284 10000000 Ovv00000 


PROPRIETARY INFORMATION OF DATA GEWERAL CURPORATION 


COPYRIGHT UGC, 1979 
0071 LP20i 


285 
286 
287 
268 
289 
290 
291 
292 
293 
294 
295 
296 


297 


298 
299 
300 
3or 
302 


305. 


304 
305 
306 
307 
308 
309 
310 
Sil 
312 
313 
314 
315 
316 
Si7 
318 
319 
320 
Sel 
322 
323 
324 
$25 
326 
327 
326 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 


01000000 
0000000) 
o0101000 
00110000 
10101010 
00000001 
01010000 
00110000 
11010010 
00000001 
00001100 
01101010 
00100000 
10000010 
00101000 
00000001 
00100000 
10000010 
00001001 


00100001" 


00000001 
10000101 
01000000 
01000000 
00001001 
00000001 
01000000 
1211201 
00101000 
11104100 
01001000 
00011000 
00001101 
00010000 
00110000 
11010010 
0v011000 
OO101100 
00100001 
10101220 
00000001 
11020100 
01010000 
00111000 
00110000 
21011101 

00110000 
00111000 
211211011 

01010000 
00111000 
11121010 
00100001 
00111000 
00110000 

11010010 

11100100 


01100101 
LoLuudll 
ou111011 
01101000 
voogu10L 
10110100 
01101000 
01011000 
voovulol 
voulvord 
00101101 
oulLiiit 
vivovi1y 
ooouu10l 
ovu11001 
vouoLiil 
10000001 
00001101 
10110100 
11011101 
OvULU10L 
0000000 
10000001 
01010000 
10110000 
o0ouvn10 
01101010 
voovuou” 
01110100 
ouiuvons 
v1110100 
00110001 
11001110 
00110001 


00111001. 


10010100 
v0111001 
vvou1100 
110U0L0L 
01000011 
11101000 
10000000 
v1000100 
O1nitiit 
00011001 
voou1100 
01000100 
00110011 
vuooul0s 
Gi1iiiil 
01113101 
01001010 
10141100 
o000u110 
10000001 
00001100 
00v0v000 


40526 
40527 
40530 
40531 
60532 
40533 
40534 
40535 
40536 
40537 
40540 
G0S4ai 
80542 
40543 
40544 
40545 
40546 
40547 
40550 
4ossi 
40552 
40553 
40554 
40555 
40556 
40557 
40560 
40561 
40562 
40563 
40564 
40565 
40566 
40567 
4os7u 
40571 
40572 
40573 
40574 
40575 
40576 
40577 
40600 
40601 
40602 
40603 
40604 
40605 
40606 
40607 
40610 
40611 
40612 
40613 
40614 
40615 
40616 


PROPRIETARY INFORMATION UF DATA GENERAL CORPORATION 


COPYRIGHT DGC, 1979 
0072 LPevl 


342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
S72 
373 
374 
375 
376 
377 
378 
379 
380 
S81 
382 
383 
384 
385 
386 
387 
368 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 


00110000 
00111000 
11111010 
00100001 
00111000 
1oOs1110 
Q1000012 
10211010 
1111010 
00000001 
00111000 
11214010 
11112013 
11121011 
ovdg0cd! 
01011000 
11001111 
00000001 
00111000 
00100000 
1o011id11 
00000001 
do10000u 
11100100 
00001101 
00001101 
00000001 
02000101 
0100000U 
00100100 
10000010 
00000001 
11001111 
00000001 
LOLO0L110 
0o0000U1 
01001000 
vo1000u0 
OOliLivO 
11111010 
00111000 
10021101 
00000001 
00100000 
10000010 
00001101 
00111000 
12111011 
00001101 
oo00uduL 
00101000 
10101010 
00000001 
01000000 
00111000 
01011000 
00111000 


01000100 
01110000 
vuavviou 
10101100 
o0100u10 
ovouv00” 
v0uv0u00 
11000000 
01001011 
oouveu1I1 
OLL01R11 
OoOuvu1OL 
GouuvodG 
voouvldl 
10001101 
OL10L1bit 
01000011 
GOuUEII: 
vO1eidll 
1¢Guvuu0L 
v0v01100 
00001000 
00010010 
O0UL10011 
rooliile 
10011010 
voovui10 
QU0LI000 
11001010 
vuoulLUN 
1OUGUOLL 
11111010 
Gi0vudlL 
00011010 
01010011 
10001001 
00110110 
OUUL1001 
OLUOVLOIL 
01000010 
10000001 
vuv01101 
10110010 
02111101 
01001010 
1yoguri 
00110011 
00001101 
10001000 
00001010 
00110110 
O1000011 
00000100 
Q0110011 
00011001 
OlLdLALi 
OOLUU0N1 


PROPRIETARY LNFURMATLON UF DATA GENERAL CORPORATION 


COPYRIGHT OGC, 1979 
0073 LP201 


399 
400 
401 
au2 
405 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
41s 
416 
ai7 
418 
419 
420 
421 
422 
423 
424 
42s 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
456 
437 
438 
439 
ayu 
4a1 
442 
443 
444 
445 
446 
447 
448 
aay 
450 
451 
452 
453 
454 
45s 


10011110 
01000021 
00101000 
00100000 
1OL0ru10 
10000010 
00000001 
00000101 
00101000 
10101010 
00000001 
00100000 
10000011 
00v00001 
11010011 
00001101 
00110000 
11000110 
01000000 


00101000 


10101011 
00000001 
00001001 
vd0d10uR 
00000102 
oo0000ur 
01000000 
01000001 
11000001 
00100000 
00110000 
00101010 
10008101 
01001010 
00001001 
00110100 
11010110 
00000002 
00110000 
11010010 
00000101 
00110000 
10010201 
00000101 
010000U0 
00110000 
11010010 
0000010) 
00100000 
10000001 
00000101 
00101000 
10101010 
00000001 
00110000 
11010010 
00000001 


ouvuvdgy 
voQUuUuUdd 
01210110 
01000010 
00000101 
ooovelul 
vouuudL0 
11021100 
01011001 
00000100 
1O0RLLIL 
Ou11U0011 
00001100 
00100000 
O1010101 
11010011 
O1000111 
Ou1ld0urt 
01000111 
v1gu10i) 
00001101 
ouuugiil 
01110110 
O1LL0111 
O1lutiO” 


00001010 


10111100 
OO1L0141 
Gurvui0d! 
01001000 
00201000 
0v0vdgu10 
Q00u0011 
00v0v0010 


O1110100- 


v00u1100 
O10v1011 
00000111 
01101010 
00000100 
01021011 
OUL01U001 
Ov001101 
12110000 
00110011 
01010000 
OuguYULUD 
01010101 
01100101 
oo0vvu100 
11101000 
OLOL0LEL 
00000100 
01010000 
01001100 
10011100 
QooouLLL 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION 


COPYRIGHT DGC. 1979 
0074 LP201 


456 
as7 
4asB 
aso 
460 
aot 
462 
463 
464 
465 
4h6 
467 
an8 
869 
470 
471 
&72 
473 
474 
47s 
476 
a7? 
a7s 
479 
480 
oat 
482 
483 
48a 
aes 
486 
487 
888 
4389 
490 
491 
492 
493 
494 
ags 
496 
497 
498 
899g 
500 
501 
S02 
503 
504 
505 
S06 
507 
508 
509 
510 
Sit 


00100000 
00111000 
10011101 
00101000 
11111001 
00000001 
11010010 
00110000 
11010010 
00000100 
01010000 
01010000 
00100000 
00101000 
00111000 
10111101 
00111000 
1LOL19101 
00000101 
00110000 
11010010 
00000001 
11010011 
00000100 
11010100 
01010000 
11111000 
00000101 
01001000 
00101000 
00111000 
10110000 
00110000 
11011101 
00000101 
00110000 
01010000 
00110000 
01010000 
00110000 
00111000 
{1111010 
11010010 
11111010 
01011000 
11010010 
00110000 
10101010 
11010101 
01010000 
00110000 
11000111 
11000010 
11111010 
00110000 
01010000 


00110011 
00011010 
00100000 
01001011 
00000110 
04101100 
onn0010! 
OO111011 
00000100 
00510000 
10000000 
01101000 
01011000 
00110011 
onot1i10 
10101100 
onnsiiit 
19100101 
OLIOL111 
01100100 
00000100 
oOo111011 
oonoo1ol 
00110000 
00000000 
ont10011 
00110101 
00101110 
91001010 
01001011 
01000001 
91100010 
00000111 
oonooiit 
01100000 
01100110 
01100111 
O1OL1111 
01911110 
or110001 
01001113 

01000000 
01000000 
10000000 
o1oo1iit 
01000000 
oont1011 
01001011 

01110000 
O1001L01 
00011100 
00100100 
10010000 
01000010 
oooi11111 
0100%100 


PROPRIETARY TNFORMATION OF DATA GENERAL CORPORATION PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION 


COPYRIGHT NGC. 1979 COPYRIGHT DGC. 1979 
0075 LP201 0076 LP201 
THE NEXT 512 LOCATIONS ARE CONTAINED IN THE PROMS WITH NQ.= : 
41072 058 11010100 non00000 
100-2131 190-2128 41073 059 00100000 10000000 
41000 000 00010000 O14111111 41074 060 10000011 OOn00101 
41001 GOL 00000001 01001010 41075 O61 11018110 00000000 
41002 No2@ OOL10000 O1000111 : 41076 062 01010000 10000000 
41003 003 00111000 01001000 41077 063 01010000 00110011 
41004 004 11011110 00000000 41100 064 00110000 01000010 
41005 005 10000010 00000100 41101 065 11011110 00000000 
41006 006 10011110 00101011 41102 066 00100000 o1011000 
41007 007 10000100 00010001 41103 067 11010101 91010000 
41010 908 10000011 00010000 41104 068 11111011 00100000 . 
41041 009 01000000 01001110 - 41105 069 01011000 01000010 
41012 010 10010100 00001110 41106 070 01011000 01110110 
41013 O11 00000100 00110000 &1107 O71 01100000 O111%181 
41014 O12 00111000 00011011 41110 072 00000001 11000010 
4t015 013 11110100 00101010 41411 073 01000000 01011110 
81016 014 00001100 00101111 Giii2 074 01000000 11010001 
41017 015 00001100 00101110 81113 075 10000010 n0n00100 
41020 016 00000100 00110000 41114 076 00000001 10111100 
41021 017 01000011 11010100 81115 077 11010101 00000000 
41022 038 01000011 01101110 41116 075 00100000 01001010 
41023 019 01000001 O0001111 3 41117 079 00111000 00101010 
41024 020 £0101011 00000000 81170 080 10011100 00100010 
41025 021 11010101 00000000 : 41121 081 00000001 10110110 
41026 O22 00001100 00000100 41172 082 01010000 01001100 
81027 023 00000100 00110000 61123 083 00101001 00101100 
41030 024 01010000 01100011 91124 084 00111000 ooni101t 
41031 025 00110000 00110010 4112S 085 10011101 onn0010! 
41032 026 00000001 11000100 41126 086 01001000 00110001 
41033 027 00110000 00101000 41127 087 00000100 00110000 
41034 028 14111011 00000001 3 41130 088 01011000 00110110 
4$035 029 00110001 01110110 41131 089 10900101 00000000 
41036 030 00100010 00000000 41132 090 00110000 00101000 
41037 O31 00101010 00000010 41133 091 01110110 01000001 
41040 032 10001100 00001101" 41134 092 10010100 00000000 
41001 033 00000011 G0000000 ~ 41135 093 01010000 01000101 
41042 O34 10101011 00000000 91136 094 00110011 00000001 
41043 035 01001010 00000010 F 41137 095 00114011 90000000 
41044 036 11111011 00000000 41140 096 10111110 90000000 
41045 037 00100030 00000001 : 41444 097 10110101 00000000 
41046 038 10001110 00000000 41142 098 01010000 01000011 
41047 039 00100010 00000000 41143 099 10010000 00000000 
41050 040 10001100 00101011 e 41144 100 0010111 00000000 
41051 0401 10001100 00000000 41185 101 10101010 10010000 
41052 O42 00110010 0n000011 81146 102 11010011 00000100 
41053 043 10110110 00000000 41187 103 00000001 11111110 
41054 044 11010010 10000000 41150 104 00190000 01000101 
41055 045 00100010 29000000 41151 105 101010910 10010101 
41056 046 10000010 00001011 41152 106 00000001 00000100 
41057 047 10000010 11000000 41153 107 10900101 00000000 
41060 048 00110000 00011001 41154 108 00000001 00001001 
G1061 049 11000111 00000000 - a1isS5 £09 11010011 00000000 
41062 050 00101000 100900001 41156 110 00011000 01000011 
41063 O51 10101010 01001011 41157 141 11111011 00000001 
41064 052 00000011 00000000 41160 112 00000001 00001010 
41065 053 00011000 01111110 41161 113 0010101! 00000000 
41066 054 00000011 00000000 41162 114 10101010 on000101 


61067 055 01010000 10000001 
41070 056 00000011 00000000 
S1071 O57 O1100000 10191111 


PROPRIETARY INFORMATION OF NATA GENERAL CORPORATION 


COPYRIGHT OGC. 1979 
0077 LP2ot 


115 
116 
17 
118 
119 
120 
lal 
122 
1a3 
1eq 
125 
126 
127 
128 
129 
130 
13 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
faa 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
16t 
the 
163 
164 
165 
166 
167 
168 
169 
170 
171 


00000001 
00000001 
10000011 
10101010 
00000001 
00101000 
01110110 
00111000 
00000011 
10110010 
00000001 
00411000 
00010000 
00100000 
10001100 
00000001 
90100000 
10011110 
01011000 
10001101 
01001000 
00100000 
00001101 
00101000 
00000001 
01000011 
00100100 
00111000 
11100111 
00111000 
01011000 
00001101 
00000000 
00111000 
01011000 
00000100 
01000011 
01000011 
O1f00101 
00100100 
10001010 
11010101 
01010000 
00110000 
11011011 
fO0tii11 
00100000 
11000111 
00111000 
11111010 
00001011 
11011010 
00110000 
11010010 
00000101 
11100111 
EES SE S| 


111110106 
00000010 
00000000 
10010011 
11111110 
00101000 
11000001 
on1to01i0 
00000010 
01900010 
o1g01011 
01010100 
01010110 
ooo11010 
OOO11111 
01011011 
00110100 
00000000 
01010100 
00000000 
01000011 
00101010 
n0n00011 
01000011 
111710011 
00010100 
oono110! 
00011010 
0000000 
00110110 
00110111 
00000101 
00010103 
Oo101i1 


OO110110. 


00101100 
00010010 
01101101 
90000001 
00001010 
90000000 
00000000 
Ommaiiis 
00011001 
00000000 
00000108 
00011001 
00000000 
01011010 
00001100 
00000000 
10010000 
01101001 
10011100 
14104111 
00n00000 
00000000 


41254 
44255 
41256 
41257 
41260 
81261 
41262 
41263 
41264 
41265 
41266 
41267 
41270 
41271 
41272 
41273 
41274 
41275 
41276 
41277 
41300 
41301 
41302 
41303 
41304 
41305 
41306 
41307 
41310 
41311 
41312 
41313 
41314 
44315 
41316 
Qi317 
41320 
4131 

81322 
41323 
41324 
413as 
41326 
41327 
41330 
Qi331 

41332 
41333 
413340 
91335 
41336 
41337 
41340 
Qr3at 

41342 
44343 
413aa 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION 


COPYRIGHT DGC. 1979 
0078 LP2o1 


172 
173 
174 
175 
176 
177 
178 
179 
180 
1A1 
182 
183 
184 
185 
186 


00110900 
10010101 
00000001 
00110000 
11010010 
00000001 
00101000 
100014101 
00000001 
00101000 
00110000 
10010101 
00110000 
10001101 
11000010 
10010101 
00000001 
10101000 
oo000001 
00101000 
00001001 
00000000 
00000000 
10101010 
00000100 
00100000 
00110000 
11010010 
00000001 
00110000 
10010101 
00000100 
00110000 
10010100 
00000001 
10010303 
00000001 
00111000 
00110000 
$14111011 
10010101 
00000001 
10101010 
00101000 
00100000 
10100110 
01000000 
00001001 
00000001 
10100110 
10121110 
01011000 
00001001 
00000001 
01001000 
00001001 
00010000 


00101001 
00001101 
01100000 
014100010 
00000100 
Oo1oriit 
Ooo10101 
10100101 
O10s0n11 
00011100 
00011110 
10101100 
ooorltit 
nn000to! 
00n00000 
10101101 
00100110 
00001100 
00001000 
01010100 
10011000 
10001001 
90001010 
00000101 
00101100 
00101010 
01011101 
09000100 
OO11115 
09011010 
00n08101 
00101100 
00401010 
00101011 
00110011 
00001t00 
oo110110 
00110010 
01010011 
00001100 
On00110t 
10100111 
01001010 
00110100 
01010100 
00000000 
01910100 
91000100 
00110101 
00000000 
00000000 
01010100 
00410100 
00110000 
01000011 
00110001 
00110010 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION 


COPYRIGHT NGC. 1979 
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229 
230 
23st 
asa 
233 
34 
235 
236 
237 
238 
239 
240 
aut 
aude 
243 
ag 
24s 
2u6 
eat 
248 
2u9 
250 
251 
252 
253 
aga 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
a71 
272 
273 
274 
P75 
276 
277 
278 
279 
280 
281 
282 
283 
2B4 
285 


00000001 
90000001 
00110000" 
00100000 
on0d10dl 
00110000 
00100000 
00001001 
00100000 
00101000 
00111000 
10101010 
10000010 
10000101 
11100101 
01000000 
00001001 
01010000 
100001061 
01000000 
01000000 
00001001 
01010000 
00001001 
01010000 
00001001 
01010000 
00000001 
00110001 
00111000 
10011101 
01010000 
00000100 
01010000 
00111000 
00010000 
00101000 
00000001 
10101011 
01000000 
00000003 
00101100 
10101110 
01000000 
00000100 
00110011 
(1111011 
00110000 
01011000 
00011010 
00000001 
00101010 
00111010 
10111101 
10121091 
01011010 
00110010 


90000010 

ooooolit 

01101110 

010101810 

00110110 
O1101401 

01010100 
oo1100s11 

01010100 
n1000011 
90110100 
0nn0di101 
0nn00101 
00000001 
90000000 
0to10100 
noo1s1itt 
01010011 
00000000 
01101011 
01010110 
00n11010 
01101100 
00011000 
01101101 
ao0g10110 
o110i110 
0010001 
00000111 
00011011 
onnooi10s 
00110001 
00101100 
o1n10011 


01n10100- 


01010110 
00110100 
11910100 
01010000 
01100000 
00110081 
oooo1ot1s 
01000010 
o1r01001 
00101100 
00000000 
00060001 
00101000 
00110110 
00000010 
aon0000! 


00000001 


00000000 
00000100 
nono00000 
00000001 
00000011 
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A1G36 286 11110110 


41437 
41440 
414g 
4iaa2 
41443 
4iaag 
41445 
41446 
41447 
41450 
4145 
41as2 
41453 
41454 
44455 
41056 
41057 
41460 
41461 
41462 
41463 
41468 
4186S 
41466 
41467 
41470 
aya7t 
41872 
41473 
41474 
41475 
41476 
41477 
41500 
41501 
41502 
41503 
41504 
41505 
41506 
41507 
41510 
aiSit 
415i2 
41513 
41514 
41515 
41516 
41517 
41520 
41521 
41522 
41523 
41524 
41525 
41526 


287 
eas 
289 
790 
201 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
sit 
312 
313 
314 
315 
316 
317 
318 
319 
320 
3a1 
322 
323 
Baa 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 


01011000 
00111000 
11010050 
11100111 
11200111 
11111000 
00101010 
{2101011 
10001110 
01001010 
11010010 
00000100 
90000000 
60000000 
01011000 
00111000 
1£111010 
onooo10L 
00111000 
01011000 
00000100 
10000101 
00010000 
00000001 
01000000 
00000101 
01000000 
00001001 
01006000 
01001000 
00100000 
00001001 
00101000 
00100000 
10001111 
10100110 
01000000 
00111000 
00110000 
H11110114 
00001001 
00100000 
00000001 
10101011 
90000001 
11001011 
10101011 
10001010 
01001000 
00110000 
00111001 
11110100 
00111001 
11110100 
00001001 
11010011 


00n00001 
00110110 
00011001 
1n000010 
00000001 
11900001 
00000000 
00000000 
00000000 
10000000 
onnoocon 
61000000 
On110110 
O1N14001 
01000101 
Oo0110110 
0to010100 
00000100 
00111100 
00101010 
01010011 
00110110 
00000000 
O1000101 
01110110 
01101001 
00110100 
01101001 
11110011 
O11osoot 
01000101 
00101001 
11010110 
01000101 
O1701011 
0ono1108 
00000000 
01101081 
00110010 
01101100 
00000100 
110118000 
01100000 
10010111 
00000100 
00001110 
00100000 
00001410 
00000101 
01101001 
01100000 
11011010 
00001100 
11011001 
00000101 
11011000 
0n001100 
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343 
3aq 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 


359. 


360 
361 
Bhe 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
38e 
383 
3a4 
385 
386 
387 
3868 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 


00000001 
00000001 
11010000 
00000001 
00110000 
01000000 
00010000 
90000100 
11010010 
10010810 
00111000 
00100001 
11100100 
00000001 
00111000 
11111010 
00000001 
00111000 
11111010 
00000001 
00000010 
O1000011 
10101100 
10101101 
11010010 
00000001 
01001000 
10901011 
01000000 
11111100 
01000000 
11121011 
00110001 
111410110 
00101010 
10101010 
11111010 
00110000 
11000111 

10110111 

00000001 
11000101 

00000001 

00101001 

10111110 
00101041 

00010000 
00101011 

10010101 

10101010 
11010000 
00100000 
10100111 
10011110 
10000101 
10101101 
00000011 


10001001 
O1110111 
10910100 
01101011 
01110010 
01110010 
01101010 
00110000 
11000000 
00000000 
0110000t 
00110100 
00000101 
o1dddtii 
N1911000 
00000100 
11111116 
Oo1i1011 
00000100 
11111110 
00000000 
00010001 
00010001 
00100000 
01001010 
11011010 
01000101 
00010101 
01100000 
00000011 
01100001 
10010000 
00011001 
00000011 


11110000: 


11000000 
01000000 
00011010 
00000000 
00000101 
101t0101 
10101100 
11110101 
00001110 
00000000 
114110110 
91000101 
00000000 
00000100 
11000000 
00000000 
00011001 


00000000 


00000000 
00000000 
01010000 
00000000 


41620 
416A1 
416?2 
81623 
41628 
41625 
41626 
81627 
41630 
41631 
41632 
81633 
41638 
41635 
41636 
41637 
41680 
41641 
4164e 
41643 
41644 
91645 
41646 
41647 
41650 
41651 
41652 
41653 
41658 
41655 
41656 
41657 
41660 
41661 
41662 
41663 
41664 
41665 
41666 
41667 
41670 
41671 
41672 
41673 
Q1674 
81675 
41676 
41677 
41700 
Q1701 
41702 
41703 
a1704 
417.05 
41706 
41707 
41710 
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400 
aot 
402 
403 
4oa 
40S 
406 
407 
408 
409 
410 
Bit 
ale 
413 
444 
415 
416 
417 
a18 
419 
420 
4al 
422 
423 
424g 
4as 
426 
427 
428 
429 
a30 
431 
432 
433 
a3qa 
435 
436 
437 
438 
439 
4ao 
aut 
age 
4a3 
uaa 
44s 
446 
&aTy 
448 
4ag 
450 
451 
as2 
as53 
asa 
455 
456 


O10cooott 
001140001 
00111100 
01000101 
o1o01i1001 
01100100 
ooooon00 
00101011 
00001101 
00001011 
00001110 


00001100" 


01201011 
00001001 
00000113 
00001010 
00100181 
01100001 
01100101 
01011001 
01000100 
00011001 
00000101 
01010111 
01010113 
01001011 
01010111 
01010000 
00000001 
10101010 
01001000 


00000001 


10000100 
10000101 
00000001 
01010000 
00000001 
10101101 
01001000 
00111001 
00101000 
10001100 
00000101 
01000011 
LLLL1011 
00000001 
00111001 
00110000 
o1900n11 
11111011 
10010100 
00000001 
10000101 
10001010 
ooo0000n1 
10101011 
00100000 


10100001 
00510101 
ooriii110 
o1ndi1in 
01100001 
o1100011 
Orootlil 
0010f0t! 
onooriol 
00001010 
00001110 
00010000 
01101010 
01101100 
0nn00111 
00001010 
0000101 
01100001 
01100101 
O1011001 
01000100 
01011100 
01011000 
01011010 
O10F0111 
O1001011 
01008100 
O1Oititt 
01010100 
01010000 
90110100 
10001100 
01010001 
10016000 
10000111 
01100010 
{1441410 
19010000 
01101001 
O0011011 
0noi1101 
00000101 
10110010 
00000000 
00000000 
H1111100 
00001101 
00011011 
00000000 
00000000 
00100100 
11741101 
10010001 
00000101 
00111010 
00000000 
61010101 


PROPRIETARY INFORMATION OF DATA GENERAL CORPORATION 


COPYRIGHT hGr. 1979 
0083 LP2oi 


457 
a58 
459 
460 
461 
462 
463 
G64 
465 
466 
ab7 
468 
469 
470 
471 
472 
473 
47q 
475 
u76 
ArT 
478 
479 
480 
4at 
ape 
483 
aaa 
4as 
4ab6 
487 
488 
“Ag 
490 
49o1 
492 
493 
49a 
495 
496 
497 
498 
49g 
500 
sol 
502 
503 
504 
505 
506 
Sa7 
508 
509 
$10 
Sit 


00001101 


00000100 
0000000 
01000000 
00101000 
10101011 
0100000 
0000100! 
00000101 
00000000 
01000100 
00101000 
10000101 
10101013 
ooooo0o! 
00111000 
01100000 
00110000 
114490111 
11110100 
00111000 
11041811 
01011000 
00110000 
11110110 
01000010 
00111000 
10111110 
o1000011 
01100000 
oo000001 
00101000 
10101051 
00000001 
00111000 
11111010 
11010010 
11411010 
01011000 
00141000 
10101011 
11010010 
00000001 
01010000 
00000003 
410101gs 
11214101 
01011000 
10101100 
00000105 
01000000 
01010000 
00000001 
10000100 
01010000 


oo0001010 
00110000 
10000010 
01101001 
01910100 
00000000 
00000111 
01300111 
10011011 
10001001 
ag1io0ti1 
01010010 
90110000 
00000100 
ooto1o0ol 
00011011 
1OUL1IAL 
01011100 
00000010 
00n00000 
oon11d018 
00000000 
01011100 
00100011 
00000000 
00000000 
00100110 
00000000 
00000000 
(PEP SESE! 
Ono11001 
o1o10001 
00000100 
oon10110 


o100L111° 


10000000 
190000000 
01000000 
OrNOeid 
OOOL1ENS 
01100000 
19000000 
11100110 
01100100 
oooo1dnL 
00000000 
01100000 
00110100 
00000000 
00000001 
00n11001 
01110001 
00000011 
o1nt000! 
01100110 


82000 
42001 
82002 
42003 
42004 
42005 
42006 
42007 
42010 
B20 
42012 
G2013 
42018 
42015 
42016 
42017 
420200 
420dal 
42022 
42023 
42024 
42025 
42026 
42027 
42030 
420313 

42032 
42033 
42034 
42035 
42036 
42037 
42040 
gaoai 

42042 
42043 
42044 
42045 
42046 
&e0a7 
42050 
42051 

82052 
42055 
42054 
42055 
42056 
42057 
42060 
42061 

42062 
42063 
42064 
42065 
42066 
42067 
42070 
42071 

42072 
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THE LAST 5i2 LOCATIONS ARE CONTAINED IN THE PROMS WITH DG NO. 


900 
oot 
002 
003 
004 
00s 
006 
007 
008 
009 
010 
Oot 
ote 
013 
ond 
015 
016 
O17 
018 
019 
020 
Oal 
ae 
23 
o2a4 
OAS 
026 
0a7 
028 
0a9 
030 
O31 
032 
033 
O34 
035 
036 
037 
038 
039 
040 
Oat 
O42 
043 
Oa4g 
04s 
146 
047 
048 
0ag 
050 
051 
ose 
053 
054 
055 
056 
057 
056 


10022132 
01000000 
00000100 
00101000 
00100000 
00001001 
00000100 
oooonnnn 
01000000 
00101000 
00111000 
11101110 
01010000 
00110000 
01110110 
00110000 
d0000001 
10000100 
01010000 
00n000n) 
91000000 
00001001 
10000010 
01000000 
00001001 
00111000 
11100110 
01000000 
00001001 
01000000 
00001001 
00111000 
11111080 
10011110 
01011000 
11111101 
01011000 
00001001 
00101000 
10001110 
01001000 
00110000 
00001101 
00010000 
00000001 
00011000 
00000001 
00001001 
00111000 
00110000 
11000110 
too1tiit 
00000100 
01011000 
00000001 
01000011 
10100101 
ooooce1! 
11010000 
01010000 


10N-2129 
01101010 
00110000 
01000001 


“oonoo11t 


Oo110011 
00110000 
10001001 
01101010 
on111100 
on11108t 
90000000 
01000101 
OO1f1101 
01000001 
01000101 
10141000 
61010000 
O1oO11101 
10011101 
01101001 
00100000 
11900000 
Ont11114 
00011101 
Ooviii1i1 
00000000 
OoO1Litit 
00011001 
00111110 
ooo10181 
oosi1110 
11000000 
00000000 
oni1i110 
00n00000 
01000000 
00010090 
01000000 
00000000 
01000000 
O0191110 
oooo11ot 
00111110 
00000001 
OOLILAIS 
11110111 
00000110 
00011001 
01000000 
0no00000 
00000100 
ongoooi1s 
O1o11010 
10011100 
00011111 
00101010 
00000000 
00000000 
01110010 
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42073 059 10000101 on000000 $2164 116 01101010 OO111111 
42074 060 00110000 00101000 G2165 117 10000101 op000000 
42075 041 01110110 01000001 42166 118 01000000 01101111 
42076 Of2 01011000 00110110 42167 119 00001100 o0101101 
" 92077 063 00111011 00000001 42170 120 00100000 00011110 
42100 064 10111110 00000000 42171 121 00111000 01011100 
42101 065 10101101 oo0n00000 92172 tee 11100111 no000000 
42102 066 11010100 01010004 42173 123 01000000 01911100 
42103 067 11010010 01100000 42174 124 00111000 00100011 
42104 068 10100100 00100011 42175 125 10011110 on000000 
42105 069 00000001 11111110 42176 126 01000011 00000000 
42106 070 00100011 nnno0000 . 42177 127 00000001 00101001 
42107 071 11000111 00000000 42200 128 00100000 01100011 
82110 072 00010000 01110010 42201 129 10011000 on000101 
42111 073 $1000100 00000000 42202 130 00000001 01001110 
92112 074 01000011 o0000000 92203 131 ON111000 O1n01018 
42113 075 00000100 00110110 42204 132 18411011 Of001101 
42114 076 00101000 01011000 42205 133 00111000 ano00110 
42115 077 19101010 n0000101 42206 134 00110000 n0n14111 
42116 078 00000001 01100001 42207 135 00109000 01901100 
42117 079 00110000 onn00101 42210 136 11000191 10101011 
42120 080 11001111 00100101 . 42213 137 00110000 01001001 
42121 081 11111100 O10£0000 G2212 138 110141101 00100010 
42172 082 00100000 91011100 : 42213 139 00010000 01001510 
42123 O83 1001N111 00001100 42214 140 10100100 nooonn10 
42124 084 00000001 01010100 42215 141 00000001 onaiiort 
42125 08S 11000110 oo0n0000 . 42216 142 01000000 01001100 
42126 086 00110000 o1001111 42217 143 00001001 00101001 
42197 087 00101100 on001001 42220 144 10000010 ton00010 
42130 088 £0101010 01000000 42221 145 10100010 01000000 
42131 089 00101000 00011100 . 42222 146 11100010 00000010 
42132 090° 11010010 10001010 42223 147 00001001 n0101100 
42133 091 00101000 00011111 42e24 148 10000000 00000000 
92134 092 00110000 01000001 4e2e5 149 1001t111 N0000000 
42135 093 11110100 o0n00010- 42226 150 10011100 ono000000 
42136 094 11101100 on100001 - Ge2e7 151 11100010 10000000 
42137 095 11111001 00000000 42230 152 10101000 o1n00010 
42140 096 1100110) 00111110 G2231 153 11010010 10000000 
42181 097 10110010 00000000 , 42232 154 00101000 01100131 
4ata2 098 11010010 01001011 92233 155 10101010 00110110 
92143 099 01010000 01000001 : 42236 156 10011010 01100000 
42144 100 110101301 00000000 42235 157 00100000 01001100 
42145 £01 01010000 o1110111 , 42236 158 00110001 ons10001 
42146 162 01010000 01001001 42237 159 11011111 00000000 
42147 103 00101000 01000010 : 42240 1460 00110000 00100100 
42150 104 11001100 00100011 42241 161 1111010 nN0000000 
42151 105 01001000 01000010 G22d2 162 01000010 00000000 
42152 106 10101011 10000100 42243 163 00111000 00011101 
42153 107 00000001 00111101 42240 164 00101000 01005001 
42154 108 01001000 01110110 G2245 165 11101101 00000100 
42155 109 00000001 O0n01110 42246 166 10000010 on000101 
42156 110 00010000 01001001 . 42247 167 00000001 11010001 
92157 111 00101000 01011001 92250 168 11010101 00000000 
92160 112 10101010 o0n00101 42251 169 01100000 10111111 
42161 113 00000001 00001111 92252 170 01100010 10000001 
42162 114 00011000 01011001 92253 171 01100000 00000001 


92163 115 00000001 00110101 42254 172 11010011 00000100 


« 42255 
392256 
‘yaasT 
42260 
42261 
42262 
42263 
42264 
42265, 
42266 


42267, 


42270 
42271 
G2e72 
42273 
42a74 
42275 
42276 
42277 
42300 
42301 
42302 
42303 
42304 
42305 
42306 
42307 
42310 
4a3it 
42312 
42313 
42314 
42315 
42316 
42317 

42320 
4esai 

4asae 
4ase3 
42304 
42305 
82326 
423a7 
42330 
42331 

42332 
42333 
42334 
42335 
42336 


42337. 


42340 
4aza. 
4a34e 
4asa3s 
4azaa 
42345 
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2 00 


174 | 
175. 


176 


177 
A178 
179 
180 
181 
182 
183 
184 
185 
186 


187 


188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199: 
200 
aot 
2n2 
203 
204 


87 LPeot 


17301100000 


£1100103 
00110000 
11010000 
00100000 
10000010 
aoo000001 
00100000 
10000010 
01010000 
00000001 
00110000 


-11010010 


10000010 
00101000 
00110000 
11001110 
01001000 
01011000 
00101000 
10101110 
10101010 
10116110 
00101000 
10111001 
00101000 
10110110 
91000010 
oo111100 
10101010 
00111010 
00110000 
00101000 
90000100 
00000001 
01011000 
00111000 
00000001 
01100000 
o1100101 
01000000 
01000000 
11111101 
00011000 
00000001 
00000001 
01011000 
00100000 
00101000 


00111000. 


10000010 


-10001100 
21100110 


10100111 
01000000 
00010000 
00000001 


O1miitil 
10000001 


01000001 © 
-0n000000 


01100100 
00000100 
11000101 
01110100 
00n00000 


01010111- 


11000001 


01001112 


01900010 
10001010 
o10010tty 
o1oo1td6l 
00000000 
010014101 
OoO110L11 
01901010 
01910000 
01010000 
00000000 


01081110 


onn10tol 
on1ootit 
00000010 
00000000 
00001000 
00000011 
000000048 
O1no1soL 
O1dd0s414 
Oo1sOLit 


ERPS SS 5 i 


01001100 
01001010 
14001100 
OUTIL 
0000000! 
O0171011 
00111000 
00000001 
Oos11041i 
00000010 
00n10000 
00111001 
00111010 
00101011 


00101000. 


01010000 
00101011 
90000000 
00000000 
00141010 
00111100 
00000001 


GENERAL CORPORATION 


42346 
42a3aT 
92350 
42351 
42352 
42353 
4a3sa 
42355 
42356 
42357 
42360 
42361 
42362 
42363, 
42364 
42365 
42366 


42367 


42370 
42371 
42372 
42373 
42374 
42375 
42376 
42377 
42400 
a2uo. 
42402 
42403 
w2ao4 
4240s 
42406 
42407 
42410 
wear 
aeaie 
a24ai3 
gaara 
42ats 
42416 
42417 
42420 
d2urt 
42ua2 
424a3 
4242 
424s 
42426 
42427 
424030 
u2a3t 
42432 
42833 
424za 
42435 
42036 
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230 
231 
232 
233 
‘234 
235 
236 
237 
2368 
239 
240 
e241 
282 
243 
2au 
as 
246 
247 
248 
249 


“250, 


asi 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
e7i 
a72 
273 
274 
275 
276 
277 
278 
279 
280 
2al 


282° 


283 
2E4 
285 
286 


00100000 
00101100 
00001100 
00000001 
00101000 
11191100 
00001100 
Oo11i00) 
o1o1i0n0 
00000001 
00100000 
19000010 
oooodon1 
00100000 
11100100 
00101000 
11101100 
01001000 
00110100 
11010010 
00001101 
00000001 
01000000 
91011000 
00111000 
o11001at 
00100000 
01000051 
00100100 
10000000 
00110000 
17000111 
00119001 
10101101 
10101010 
11010011 
10000010 
00000001 
00111000 
LOL11110 
01000051 
LiLALTOL 
00000110 
01000103 
01000100 
01000100 
01000100 
01000010 
01000100 
01000101 
00100000 
10011110 
01100101 
00100100 
10000010 
00101000 
01001000 


01011000 
00001110 
OO10L1OL 


sOvVd11i 


0n111000 
10100100 


00000011 — 


$1100010 
00111001 
10111001 
00111001 
10010100 
19130110 
OO111011 
ont00000 
00111000 
00010110 
00111000 
onon1oi1t 
01000011 
00000010 
10101101 
110481110 
OoL1d1st 
00000000 
00000001 
oo11o0i1ii 
ieee eeee! 
00001001 
n0n00000 
00011010 
00000000 
oono10is 
01010001 
01010000 
00000000 
10000011 
V14aL4101 
90100110 
00000000 
00000000 
00000000 
00N00000 
00010001 
01001100 
O1101110 
11011000 
10001101 
11110000 
1OVL4141 
oon110is 
90000000 
00000001 
oooo1sty 
10001010 
00101011 
o111G011 


ei 


' 
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267 
288 
289 
290 
aot 
292 
293 
294 
29s 
296 


00101000 
10000010 
01001000 
OLo010000 
01010000 
10000110 
00011000 
10000310 
00011000 
00110000 
10001010 
10000010 
11001111 
11010011 
00110000 
01010000 
10100111 
10101101 
01001000 
10101010 
00110000 
10000110 
11001110 
01100000 
00100000 
00110000 
11000141 
1000t110 
01001000 
01100000 
00100100 
00101000 
10001111 
00110001 
11000111 
10010010 
11010010 
11000110 
10001110 
01001000 
10000101 
00110000 
01110110 
00100001 
100018101 
fO101101 
01001000 
00000100 
00000101 
00000000 
01011000 
o10n0000 
10000010 
01000000 
00010000 
00100000 
00111000 


OO1;L101 
01000010 
00111100 
01010001 
a1010010 
01010010 
01010001 
01001010 
01010010 
00000110 
11000000 
10000000 
19011100 
ao000001 
00011100 
Oo1t1101 
01000000 
01110000 
o1001111 
01010000 
00011100 
01010010 
00000000 
1Ovtti4t 
01011100 
00000110 
00000000 
90000000 
01011100 
OL114111 
00001011 
00010101 
00000000 
90010000 


10010000° 


10010000 
10010000 
00000000 
00000000 
01010101 
0000000 
00111101 
119000001 
00000101 
00001101 
00000000 
00010100 
00101100 
00101000 
11110000 
04121010 
01111001 
1000000 
Or1i10%3 
01110111 
O11id1is 
00101011 


42530 
42531 
42532 
42533 
4e534 
42535 
42536 
42537 
42580 
82541 
4254e 
42543 
4a5aq 
42a5a5 
42546 
G2asga7 
82550 
4as51 
42552 
$2553 
4as5a 
42555 
42556 
42557 
42560 
42561 
492562 
42563 
42564 
42565 
42566 
42567 
42570 
4e571 
42572 
42573 
82574 
42575 
42576 
42577 
42600 
42601 
42602 
42603 
42604 
42605 
42606 
42607 
42610 
42611 
S2612 
42613 
82614 
$2615 
42636 
42617 
42620 
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3a4q 
3a5 
346 
3a7 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
340 
361 
362 
363 
364 
365 
346 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
3684 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 


11100101 
00000001 

10000010 
ocoooont 
00111000 
01011000 
00001001 

00100000 
10000010 
00100000 
00111000 
01100000 
00000100 
14100101 
0000000! 

01000000 
00111000 
00100000 
10011101 
00000100 
00010006 
00100000 
00000001 
11111015 
10000101 
10000101 
01100101 
01000000 
01110910 
00111000 
11119011 

00111000 
11110010 
00119000 
11010010 
10000101 
10110010 
10010010 
41010010 
10011411 
11000010 
01100101 

01100000 
00110000 
01000000 
00111000 
11100110 
00111000 
111201011 

11110111 

10011911 
11011110 
10191511 

10101103 

01100111 

11010100 
00111000 


00100010 
00000110 
00000100 
00001010 
01011000 
01111100 
00100011 
O1V11081 
10000000 
01111001 
01112010 
OVLitiis 
00000000 
00000100 
11911008 
O1110151 
00000101 
01111000 
00100010 
00000011 
01111000 
01111100 
11110000 
00000000 
00000008 
91040000 
00n00001 
01110145 
OOrli1a 
01100100 
10010010 
O1N001111 
61000000 
94000010 
01110801 
00000000 
01000000 
01000000 
01100000 
10000000 
01000001 
00000001 
1OV19111 
01011000 
01011000 
00111010 
00000000 
00000110 
10010000 
90000000 
00000000 
10000000 
10000101 
00000000 
OOVLi1i4 
00000000 
00100101 
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00 


aol 
402 
403 
aog 
405 
406 
407 
ana” 
“og 
410 
ait 
412 


; a13 


aia 
415 
ALG 
417 
418 
419 
420 
wat 
42 
423 
4aa 
4as 
426 
4eT 
428 
Bag 
asa 
431 
432 
433 
434 
435 
436 
437 
438 
839 
4a0 
4at 
aga 
443 
aug. 
ga5 
446 
4a7 
448 
449 
450 
451 
452 
453 
454 
ass 
456 
457 


ot LPeos 


10011110 
01000011 
00111000 
LOL11110 
01000011 
opo0ag10! 
ofoooio0 
00101000 
10101010 
01100000 
00101000 
10101010 
10101010 
01001000 
01100000 
00110000 


A01L0210 


01000010 
00000011 
01100101 
00110000 
G0100000 
11000100 
oo000n100 
00100000 
00110000 
10010101 
00100000 
01000000 
00010000 
00011000 
00000001 
00100000 
10000011 
01000000 
00100000 
10000011 
10010101 
00100000 
91000000 
01000000 
00100000 
00101000 
10100100 
00000101 
01000010 
00101100 
10101110 
00000100 
10000101 


.01000000 


00100000 
01000000 
901000000 
00100000 
01000000 
00000100 


00000000 
00000000 
on100110 
00000000 
00000000 
00000001 
10101000 
90110001 
10000000 
10942111 
01011100 
10000000 
o1110010 
01011100 
Onnsiiit 
00100011 
00000000 
00000000 
00000001 
00000001 
ooos1011 
00080010 
00010011 
oo1o1ide 
00100000 


00011010 


00001101 
00101010 
00100000 
00100000 
00100001 
onnosonl 
onnooLit 
00000000 


00100001 - 


00001010 
00000000 
oo000s101 
00101010 
00100000 
00001010 
00011101 
Ooo1L00! 
90000000 
00000001 
1001011 
00001100 
01001010 
00101100 
10010000 
01111101 
00101010 
00100000 
00001010 
00000111 
0010000! 
00110000 


42aTt2 
42713 
ge714 
4a7is 
42716 
a27i7y 
42720 
Ge721 
42722 
42723 
42724 
42725 
42726 
42727 
42730 
e773 
42732 
42733 
42734 
42735 
42736 
42737 
42740 
4a7al 
e742 
Ga74s 
42a7ag 
a274s 
42746 
427a7 
42750 
4e7si 
42752 
42753 
4e754 
42755 
42756 
82757 
42760 
42761 
42762 
42763 
42764 
4e765 
42766 
82767 
42770 
42771 
42772 
42773 
4a7ria 
42775 
42776 
42777 
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as6 
aso 
460 
“oi 
862 
463 


464 


865 
466 
A67 
468 


“469 


470 
avi 
472 
473 
474 
475 
476 
a77 
47g 
479 
480 
481 
4a2 
483 
una 
485 
486 
4a7 
488 
4ag 
490 
agy 
492 
493 
498 
495 
496 
497 
498 
ugg 
soo 
501 
Soe 
503 
504 
505 
506 
507 
508 
509 
510 
S11 


01000100 
01000101 
01000000 
01000000 
00000000 
00000000 
00000000 
Oo11i4a11 
OoLLsiiii 
Oorr1111 
ootriiti 
OO1Li11i3 
OOLLti4d 
Oo1itiit 
MOLi1105 
00000101 
00000000 
00000110 
000000160 
Oooo1111 
000n0000 
00000000 
ono00000 
00000010 
00000000 
00000000 
00000000 
00000000 
60000000 
00000000 
00000000 
01000000 
01001000 
01010000 
01011000 
01100000 
01101000 
01110000 
01111000 
00000000 
00000000 
00000000 
00000000 
01000100 
01000101 

01000101 
01000101 

H100000t 
00010000 
SESESES 

(1244101 
00000000 
00000000 
01000000 


14211101 
n101000t 
19221101 
on100011 
00000100 
00000101 
10000100 
11111000 
11111001 
H1412010 
11711011 
111411100 
19241101 
V1181910 
Vitiriit 
(1411118 
00000000 
00000000 
00010000 
1is1O01ad 
oooo11il 
00000000 
00010000 
00000000 
WAdLL041 
OVVLGLA 
00000111 
00001000 
00001010 
00001011 
onno1101 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00n10000 
ono110it 
00100000 
00110000 
10101000 
10000001 
01110001 
OLVsOLIt 
00111000 
00n00000 
V1419191 
ESESESE! 
00000001 
00000010 
00000000 


